فولدر تو در تو

["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\19 \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\19 \"
End Sub
موفق باشید.