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

[good_boy]

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

[xxxxx_xxxxx]

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

Delete كردن يك فولدر با همه زيرشاخه ها و فايل هاش (http://barnamenevis.org/forum/showpost.php?p=664247&postcount=316)




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

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


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

موفق باشيد/