پاک کردن محتویات پوشه های مخفی

[Mohsen_2008]

سلام
چطوری میشه محتویات پوشه هایی که به صورت مخفی هستن را پاک کرد؟
مثلا این آدرس
C:\Documents and Settings\Username\Templates

[Mohsen_2008]

چرا کسی جواب نمیده!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:گ ریه::گریه::گریه::گریه:

[مبین رنجبر]

خوب میتونی اول اون پوشه ای که مخفی هست ، مشخصه Hidden اشو برداری به روش زیر و پاکش کنی :


SetAttr "C:\Documents and Settings\Username\Templates", vbNormal

[ƒxmahdi]

دوست من منتظر جواب باش

[مبین رنجبر]

من فکر میکنم روشی که من مطرح کردم بتونه مشکل ایشونو حل کنه ..

[ƒxmahdi]

ابتدا به منو project رفته و زیر منوی Peferences راانتخاب کنید و از پنجره باز شده گزینه
Microsoft Scripting Runtime را تیک زده و در رویداد مورد نظر کد زیر را وارد کنید
Dim fso As New FileSystemObject
fso.DeleteFolder "C:\Documents and Settings\Username\Templates"
اگه جواب داد می تونی یه تشکر بزنی

[ƒxmahdi]

بعد دوباره پوشه را بساز
fso.CreateFolder "C:\Documents and Settings\Username\Templates"
SetAttr "C:\Documents and Settings\Username\Templates", vbHidden
شاید این روش زیاد درست نباشه ولی کارتان را راه می اندازد

[ƒxmahdi]

اصلا یک روش ساده تر
روی فرم یک کنترل file list box ایجاد کن بعد در رویداد مورد نظر کد زیر را بنویس
File1.Path = "C:\Documents and Settings\Username\Templates"
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
Kill File1.Path & "\" & File1.FileName
Next i