Örneğin il_adi nı değiştirerek farklı klasörler oluşturmayı deneyebilirsiniz.
Sn. SCavusoglu'nun kodlarını hata durumunda bir sonraki adıma geçmesi için aşağıdaki şekilde kullanabilirsiniz.
Kod:
On Error Resume Next
Dim dizin As String
dizin = "d:\test"
If Len(Dir(dizin, vbDirectory)) = 0 Then
MkDir dizin
MkDir dizin & "\" & il_adi
MkDir dizin & "\" & il_adi & "\" & ilce_adi
MkDir dizin & "\" & il_adi & "\" & ilce_adi & "\" & Me.proje_adi
MsgBox ("Klasör Olusturuldu"), vbInformation, "KLASÖR OLUSTURMA"
Else
MkDir dizin & "\" & il_adi
MkDir dizin & "\" & il_adi & "\" & ilce_adi
MkDir dizin & "\" & il_adi & "\" & ilce_adi & "\" & Me.proje_adi
MsgBox ("Klasör Guncellendi"), vbInformation, "KLASÖR OLUSTURMA"
End If
End Sub