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

برای ایجاد پوشه با Fso چه کدی را پیشنهاد میکنید ؟
لطفا کامل بنویسید .

سلام.
این که خیلی سادست. شما وقتی در مورد فایل سیستم آبجکت اطلاعات داری دیگه فولدر رو هم باید بتونی بسازی.

کد:

---

Dim fsoMKDIR As New Scripting.FileSystemObject
fsoMKDIR.CreateFolder "C:\New"

---

ممنون ولی اینو خودم میدونستم
میخوام وقتی روی دکمه کلیک می کنم input box بیاد و در اون آدرس رو وارد کنم بعدش پوشه در مسیری که تایپ کردم ایجاد بشه !
اگه کد این رو بنویسی ممنون میشم

یک عدد Command Button در فرم ایجاد کن و روش دابل کلیک کن -- و توی کدش اینو بنویس:

کد:

---

  Dim FolderPath As String
  Dim fso As Object
 
  FolderPath = InputBox("Enter folder name", "Create folder")
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder FolderPath

---

به همین سادگی :11: