ایجاد دایرکتوری وساب دایرکتوری با API

[nezhadam_pershia]

با سلام.
من می خوام تو برنامم کاربر بعد از این که در یک Common Dialog اسم مورد نظر خودشو وارد کرد یه فولدر به همون اسم و در همون مسیر و دو تا فولدر که ساب فولدر انتخابی کاربر هستند به نام هایه Image و DB ایجاد کنم.
لطفا اگه میشه کدشو واسم اینجا بذارید.
Mer29+1.

[majjjj]

برای ساخت فولدر


Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type


این لینک رو هم ببین پست شماره 24 منظورمه
http://barnamenevis.org/forum/showthread.php?t=92152&page=3
از همین برای ساخت ساب فولدر هم میتونی استفاده کنید

[scarce]

برای ساخت فولدر


Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type


این لینک رو هم ببین پست شماره 24 منظورمه
http://barnamenevis.org/forum/showthread.php?t=92152&page=3
از همین برای ساخت ساب فولدر هم میتونی استفاده کنید
این کد محدودیت در ساخت SubFolder نداره . مثلا من بخوام یک SubFolder در 1000 رومین پوشه بسازم مشکلی پیش نمیاد

[majjjj]

والا من امتحان نکردم ولی فکر نکنم مشکلی پیش بیاد البته این کار چه فایدهای داره که شما هزارتا پوشه درست کنی؟