öncelikle; CurrentProject.Path ifadesi uygulamanızın bulunduğu klasöre göre düşünülerek belirtilmiştir.fakat,elbette ki bunu değiştirip yerine istediğiniz sabit bir klasör söz konusu ise o klasör içerisinde ilgili diğer klasörleri oluşturabilirsiniz.
fakat bunun için test adlı klasörün mevcut olması gerekmektedir,eğer ki kod ile direkt bu CurrentProject.Path ifadesi yerine yazmak isterseniz.aksi takdirde size hata bildirimi olarak çıkacaktır.Mevcut bahsettiğiniz hatanın nedeni de,oluşturulan klasör için kullanıcı izinleri tanımlamalısınız.
Son talebinize göre,bir önceki örnekteki ilgili buton içeriğindeki kodlamayı aşağıdaki ile değiştirerek kullanabilirsiniz.bilginize.
Kod:
Dim anayer As String
anayer = "d:\test"
If Dir(anayer, vbDirectory) = "" Then
MkDir anayer
MkDir anayer & "\" & Me.il_adi
MkDir anayer & "\" & Me.il_adi & "\" & Me.ilce_adi
MkDir anayer & "\" & Me.il_adi & "\" & Me.ilce_adi & "\" & Me.proje_adi
MsgBox ("Klasör oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA"
Else
MsgBox ("klasörler zaten mevcut")
End If
İyi çalışmalar,Saygılar.