ساخت فولدر به صورت تودرتو

[m_mx2009]

سلام اگه میشه در مورد ساختن چندتا فولدر به صورت تودرتو داخل Document سیستم توضیح بفرمایین....
مثلا واسه ساختن مسیر زیر چکار باید بکنم؟

my document/ app /new folder

زبان برنامه نویسی هم VB6 هستش....
خیلی ممنونم
​

 

[the_king]

سلام اگه میشه در مورد ساختن چندتا فولدر به صورت تودرتو داخل Document سیستم توضیح بفرمایین....
مثلا واسه ساختن مسیر زیر چکار باید بکنم؟

my document/ app /new folder

زبان برنامه نویسی هم VB6 هستش....
خیلی ممنونم
​

[COLOR="Blue"]Private Declare Function SHCreateDirectoryExA Lib "SHELL32.dll" (ByVal hWnd As Long, ByVal pszPath As String, ByVal psa As Long) As Long
[/COLOR]
[COLOR="Gray"]Private Sub Form_Load()[/COLOR]
[COLOR="Blue"]    SHCreateDirectoryExA 0, MyDocuments & "\app\new folder", 0[/COLOR]
[COLOR="Gray"]End Sub[/COLOR]

[COLOR="Blue"]Private Function MyDocuments() As String
    MyDocuments = Environ("USERPROFILE") & "\My Documents"
End Function[/COLOR]