فولدر تو در تو

["juggle"]

چطوری میتونم بیش از 19 تا فولدر تو در تو درست کنم؟

[alishademan]

[-u8ooooooooooooooooooo

[setroyd]

Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Private Sub Form_Load()
SHCreateDirectoryEx Me.hwnd, "c:\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15\16\17\18\1 9\20\21\22\23\24\25\26\27\28\29", ByVal 0&
End Sub
اینم 29 فولدر تو در تو دیگه چی ؟ تشکر یادت نره

["juggle"]

من منظورم با دستو MkDir هست؟

[www.pc3enter.tk]

می تونی این جوری استفاده کنی

mkdir "c:/ali"
mkdir "c:/ali/reza"
mkdir "c:/ali/reza/ilad"
mkdir ..........

[setroyd]

Private Sub Command1_Click()
b = "c:\"
For a = 1 To 30
b = b & a & "\"
MkDir (b)
Next
End Sub
ببین سعی کن از api استفاده کنی بهتره ولی انم میزارم چون خواستی موفق باشی

[butterfly8528]

سلام دوستان عزیز .

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long



Private Sub Form_Load()

  MakeSureDirectoryPathExists "c:\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15\16\17\18\1  9\"

End Sub

موفق باشید.