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
MkDir "D:\DOSYALAMA\" & x & "\" & a & ""
şeklinde dener misiniz?
Sn. chopper07
teşekkür ederim ama problem devam ediyor.
"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.
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
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"