Im trying to write a scrip that will allow me to delete the contents of a folder remotely although when it runs accross a file that is locked or in use it errors out and stops. Is there a way to have it skip that one file and move on to the next.
It has been recomended that I use “On error resume next” but I cannot becuase it will not only skip that one file but the remailing files in the folder.
To give you an Idea of what I’m working with I’ve posted what I have so far below.
Thanks in advance.
dim message, title, wackwack, path, windows, temp, history, temporary_internet_files, temp_delete, history_delete, temporary_internet_files_delete
message = “Enter the Service Tag of the PC you want to clean.”
title = “PC Cleaner”
wackwack = “\\”
path = “\C$\Documents and Settings\”
windows = “\C$\WINDOWS\temp\*”
windows_temp = “\C$\windows\temp”
temp = “\local settings\temp”
temporary_internet_files = “\local settings\Temporary Internet Files”
temp_delete = “\local settings\temp\*”
temporary_internet_files_delete = “\local settings\Temporary Internet Files\*”
servicetag=InputBox(message, title)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(wackwack & servicetag & path)
Set subFolders = folder.SubFolders `
For Each folderObject in SubFolders
If fso.FolderExists(wackwack & servicetag & path & folderobject.name & temp) Then
fso.DeleteFolder wackwack & servicetag & path & folderobject.name & temp_delete, True
fso.DeleteFile wackwack & servicetag & path & folderobject.name & temp_delete, True
End If
If fso.FolderExists(wackwack & servicetag & path & folderobject.name & temporary_internet_files) Then
fso.DeleteFolder wackwack & servicetag & path & folderobject.name & temporary_internet_files_delete, True
fso.DeleteFile wackwack & servicetag & path & folderobject.name & temporary_internet_files_delete, True
End If
Next
fso.deletefolder wackwack & servicetag & windows,True
fso.DeleteFile wackwack & servicetag & windows, True
Next
Set subFolders = Nothing
Set folder = Nothing
Set fso = Nothing
