پاک کردن و گرفتن لیست فایلها و فولدرهای با استفاده از fso

سلام دوستان
چطور میشه یه پوشه رو با تمام محتویات درونش (چه فایل چه فولدر) پاک کرد؟
با چه دستوری میشه لیستی از محتویات (منظورم اسم فایل ها وفولدرها) درون یه پوشه رو گرفت؟
من میخوام این کارا رو با استفاده از FileSystemObject انجام بدم اگه با FSO شدنی نیست با هر دستور دیگه که بلدین ایرادی نداره

نقل قول:

---

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

---

با اين دستورات مي تونيد فايل هاي يك فولدررو بدست بياريد. براي اين كه بتونيد به فايل هاي زيرفولدرها هم دسترسي داشته باشيدبايد از subfolder در fso استفاده كنيد و در يك حلقه به صورت بازگشتي تابع رو اجراكنيد اونوقت تا آخرين زيرفولدر هم نفوذ مي كنيد.


[HTML]Private Function SearchFolder(path)
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set folder = fso.getfolder(path)
Set Files = folder.Files
For Each file In Files
MsgBox file.path
Next
End Function
[/HTML]