Tek seferde iç içe klasör oluştura biliyormuyuz?

[osman1309]

Forumda bulamadım...Bu şekilde klasör oluşturamıyormuyuz....

Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "c:\osman\ahmet\mehmet\ali\veli\deli\sakine"


veya

If Dir(MyFilePath2, vbDirectory) = Empty Then MkDir "c:\osman\ahmet\mehmet\ali\veli\deli\sakine"

 

[halit3]

Forumda bulamadım...Bu şekilde klasör oluşturamıyormuyuz....

Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "c:\osman\ahmet\mehmet\ali\veli\deli\sakine"


veya

If Dir(MyFilePath2, vbDirectory) = Empty Then MkDir "c:\osman\ahmet\mehmet\ali\veli\deli\sakine"

Bunu denermisiniz.?

Sub klasor_olustur()
deg1 = "c:\osman"
deg2 = deg1 & "\" & "ahmet"
deg3 = deg2 & "\" & "mehmet"
deg4 = deg3 & "\" & "ali"
deg5 = deg4 & "\" & "veli"
deg6 = deg5 & "\" & "deli"
deg7 = deg6 & "\" & "sakine"
On Error Resume Next
If Dir(deg1) = "" Then MkDir (deg1)
If Dir(deg2) = "" Then MkDir (deg2)
If Dir(deg3) = "" Then MkDir (deg3)
If Dir(deg4) = "" Then MkDir (deg4)
If Dir(deg5) = "" Then MkDir (deg5)
If Dir(deg6) = "" Then MkDir (deg6)
If Dir(deg7) = "" Then MkDir (deg7)
msgox "işlem tamam"
End Sub

 

[osman1309]

çok teşekkürler.

 

[halit3]

çok teşekkürler.

iyi çalışmalar