ایجاد پوشه با FSO

[select.vb]

چگونه با FSO پوشه را ایجاد کنم ؟
لطفا کد ارائه کنید :لبخندساده:

[فاطمه وطن دوست]

سلام





Private Sub Command1_Click()
Dim FSO As New FileSystemObject

'CREATE FOLDER
'===================
If Not (FSO.FolderExists("C:\TEST")) Then
FSO.CreateFolder ("C:\TEST")
End If
End Sub

[select.vb]

مچکرم بانو فاطمه
میشه کاری کنید با INPUT BOX بتونم نام پوشه رو بهش بدم
و با یه دکمه دیگه بتونم دوباره فایل رو rename کنم .

[vahidm]

سلام
فکر کنم اگر در قسمتی که نام پوشه گذاشتن یک متغییر به نام i بذارین و i رو برابر inputBox قرار بدین درست میشه باز هم اینی که گفتم امتحان کنید

[اوبالیت به بو]

مچکرم بانو فاطمه
میشه کاری کنید با INPUT BOX بتونم نام پوشه رو بهش بدم
و با یه دکمه دیگه بتونم دوباره فایل رو rename کنم .

سلام
فکر کنم اگر در قسمتی که نام پوشه گذاشتن یک متغییر به نام i بذارین و i رو برابر inputBox قرار بدین درست میشه باز هم اینی که گفتم امتحان کنید
در تكميل حرف شما


Option Explicit
Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim Rename As String
Dim Directory As String * 2
'CREATE FOLDER
'===================
Directory = InputBox("Type Your Drive:", "Drive Name")
Rename = InputBox("Type Your Folder Name:", "Folder Name")
If Not (FSO.FolderExists(Directory & ":" & Rename)) Then
FSO.CreateFolder (Directory & ":" & Rename)
End If
End Sub

Directory: درايوي هستش كه كاربر فقط اسمش رو ميزنه
Rename : اسم پوشه هستش
حالا شما مي تونيد اين متغير ها رو تويه بخش ويرايش برنامتون استفاده كنيد.

[maryamb]

سری هم به این لینک می تونی بزنی
http://barnamenevis.org/forum/showthread.php?t=73358&highlight=%D8%B3%D8%A7%D8%AE%D8%AA+%D9%BE%D9%88%D8 %B4%D9%87