скрипт для удаления папок и файлов старше 30 дней - PullRequest
Новая
       6

скрипт для удаления папок и файлов старше 30 дней

0 голосов
/ 15 марта 2011

У меня есть несколько сценариев VBS, которые я использую в 2 разных каталогах. В одном каталоге он удаляет папки старше 30 дней, а в другом - файлы старше 30 дней. Я настроил их на выполнение запланированных задач, однако они запускаются один или два раза, а затем перестают работать Я ищу любое понимание того, почему они перестают работать, или новый сценарий. Ниже приведены два сценария, которые я сейчас использую. Большое спасибо заранее за понимание! Я ценю это !!! 

'******************* Start of Code *************************

Option Explicit 
On Error Resume Next 
Dim oFSO, oFolder, sDirectoryPath  
Dim oFileCollection, oFile, sDir  
Dim iDaysOld 

' Specify Directory Path From Where You want to clear the old files 

sDirectoryPath = "C:\WINDOWS\system32\LogFiles\W3SVC823230" 

' Specify Number of Days Old File to Delete

iDaysOld = 15

Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFolder = oFSO.GetFolder(sDirectoryPath) 
Set oFileCollection = oFolder.Files 

For each oFile in oFileCollection

'This section will filter the text file as i have used for for test 
'Specify the Extension of file that you want to delete 
'and the number with Number of character in the file extension  

    If LCase(Right(Cstr(oFile.Name), 3)) = "log" Then

        If oFile.DateLastModified < (Date() - iDaysOld) Then 
        oFile.Delete(True) 
        End If 

    End If     
Next 

Set oFSO = Nothing 
Set oFolder = Nothing 
Set oFileCollection = Nothing 
Set oFile = Nothing 

'************************ End of Code ********************
...