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

m_mx2009

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



کد:
my document/ app /new folder

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

the_king

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



کد:
my document/ app /new folder

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

کد:
[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]
 

جدیدترین ارسال ها

بالا