Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
Const maxSize = 5242880
Const maxAge = 30
Const pubhome = "x:\pub"
Dim FSO, logName
Set FSO = CreateObject("Scripting.FileSystemObject")
logName = WScript.ScriptFullName & ".log"
Set oReport = FSO.OpenTextFile(logName, 8, true)
RecurseCheckFolder FSO.GetFolder(pubHome)
oReport.Close
Function RecurseCheckFolder (oParentFolder)
Dim oFolder, oFile
For Each oFolder in oParentFolder.SubFolders
RecurseCheckFolder oFolder
Next
For Each oFile in oParentFolder.Files
If oFile.Size > maxSize and DateDiff("d", oFile.DateLastAccessed, Now) > 30 Then
oReport.WriteLine oFile.DateLastAccessed & " " & oFile.Size & " " & oFile.Path
'oFile.Delete(true)
End If
Next
End Function
|
|
