22-02-2007, 10:07
|
|
|
חבר מתאריך: 22.02.07
הודעות: 1
|
|
בעיה ביצירת סקריפט בVBS
שלום לכולם אני מנסה ליצור סקריפט שמוחק את כל התיקיות בתוך תיקיה מסויימת חוץ מתיקייה מסויימת(ADMINISTRATOR) ....
ניסית את הסקריפט הבא וזה לא עובד.....
Dim dso, fldr
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\test")
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
ShowSubFolders Subfolder
BasePath = Subfolder.Path
Set dso = CreateObject("Scripting.FileSystemObject")
if subfolder <> "adminisrator" then
dso.DeleteFolder(Subfolder)
Next
End Sub
אנא עזרו ל, אם יש לכם רעיון אחר אני אשמח....
תודה מראש...
מושיקו
|