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

---

doğrusu buymuş adım adım klasör eklenecekmiş