Sayın Atoz beyin verdiği kodlar çalışıyor ama şöyle bir sorun var mesela ben adano yu boş bıraktığımda arsiv no yada klasör no oluşturmuyor Bunun nasıl aşabiliriz.
Dim anayer As String
anayer = "d:\arsivkamu"
If Dir(anayer, vbDirectory) = "" Then
MkDir anayer
Else
If Dir(anayer & "\" & Me.Açılan_Kutu53, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53
Else
End If
If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM
Else
End If
If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93
Else
End If
If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109
Else
End If
If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI
Else
End If
If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO
Else
End If
If Dir(anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO & "\" & Me.PARSEL_NO, vbDirectory) = "" Then
MkDir anayer & "\" & Me.Açılan_Kutu53 & "\" & Me.BİRİM & "\" & Me.Açılan_Kutu93 & "\" & Me.Açılan_Kutu109 & "\" & Me.YERLEŞİM_ADI & "\" & Me.ADA_NO & "\" & Me.PARSEL_NO
Else
End If
MsgBox ("Klasörler oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA"
End If