Merhaba,

Hatayı yüksek ihtimalle aynı isimde klasör olduğundan alıyorsunuz. Bunu engellemek için "eğer" sorusu içeren bir kod kullanmanı gerekiyor.

O kod da aşağı yukarı şöyle birşey. "C:Rap" i siz istediğiniz sekilde degistirebilirsiniz. klasor1-2-3 kisimlarınıda anlamıssınızdır sanırım.

If Len(Dir("c:\Rap\", vbDirectory)) = 0 Then
MkDir "c:\Rap"
MkDir "c:\Rap" & "\" & Me.klasor1
MkDir "c:\Rap" & "\" & Me.klasor1 & "\" & Me.klasor2
MkDir "c:\Rap" & "\" & Me.klasor1 & "\" & Me.klasor2 & "\" & Me.klasor3
MsgBox ("Klasör Olusturuldu"), vbInformation, "KLASÖR OLUSTURMA"
Else
MkDir "c:\Rap" & "\" & Me.klasor1
MkDir "c:\Rap" & "\" & Me.klasor1 & "\" & Me.klasor2
MkDir "c:\Rap" & "\" & Me.klasor1 & "\" & Me.klasor2 & "\" & Me.klasor3
MsgBox ("Klasör Guncellendi"), vbInformation, "KLASÖR OLUSTURMA"
End If