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