Skip to main content

AccessTr.neT


klasör oluşturma

ondercesmeci
ondercesmeci
5
4457

klasör oluşturma

Çözüldü #1
Herkese günaydın.
Aşağıdaki kod ile klasör oluşturmaya çalışıyorum ama "MkDir w & a" yazılı kodda hata veriyor.
ilginize ve bilginize teşekkürler.

Dim a, x, w As String
a = Me.sube
x = Me.yil
w = "D:\DOSYALAMA\" & x & "\"
If Len(Dir("D:\DOSYALAMA\" & x & "\" & a & "", vbDirectory)) = 0 Then
MkDir w & a
End If
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Son Düzenleme: 28/12/2011, 09:58, Düzenleyen: ondercesmeci.
Cevapla
Çözüldü #2
MkDir "D:\DOSYALAMA\" & x & "\" & a & ""

şeklinde dener misiniz?
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
Çözüldü #3
Sn. chopper07
teşekkür ederim ama problem devam ediyor.
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Cevapla
Çözüldü #4
"Eğer o klasör yok ise klasör oluştur" gibi bir mantık ile oluşturmaya çalışıyorsanız Len ile kontrol etmeyin. Direkt

Dir(dosya_adresi) = ""

şeklinde kontrol ettirin.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
Arkadaşlar teşekkürler çözdük. yardımlarınız için teşekkürler. belki başkasının işine yarar diye tüm kodları gönderiyorum.
Private Sub konu_AfterUpdate()
Me.arsivadi.Visible = True
Me.arsivnot.Visible = True
Dim a, x, y As String
x = Me.sube
y = Me.yil
a = Me.konu

If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & y & "\" & x & "\" & a & "", vbDirectory)) = 0 Then
MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & y & "\" & x & "\" & a
End If

End Sub

Private Sub sube_AfterUpdate()
Me.konu.Requery
Me.konu.Visible = True
Dim a, x, w As String

a = Me.sube
x = Me.yil

If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & x & "\" & a & "", vbDirectory)) = 0 Then
MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & x & "\" & a

End If

End Sub


Private Sub yil_AfterUpdate()
Me.sube.Visible = True
Dim a, x As String
a = Me.yil

If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & a & "", vbDirectory)) = 0 Then
MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & a

End If

End Sub
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Son Düzenleme: 29/12/2011, 12:42, Düzenleyen: ondercesmeci.
Cevapla
Çözüldü #6
ahmet klasörü yokken sıfırdan c dizinine bu klaörleri nasıl oluştururuz
bu kodda nerede hata var
Kod:
Private Sub Komut2_Click()

If Len(Dir("C:\ahmet\burak\ceyhan", vbDirectory)) = 0 Then
MkDir "C:\ahmet\burak\ceyhan"
End If

End Sub


doğrusu buymuş adım adım klasör eklenecekmiş
Kod:
MkDir "C:\ahmet"
MkDir "C:\ahmet\burak"
MkDir "C:\ahmet\burak\ceyhan"

@benbendedeilem
Son Düzenleme: 02/05/2012, 09:59, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da