VBS: Delete any files that are > 5 days old ANDF 0 kb filesize

Dim fso, objShell
'===================================
'Start of Sub-routine
Sub fFIND(oFolder)
	DIM oFile
	DIM oSdate, oCdate,objFile
 
	'Look at each file in the current folder
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.GetFile((oFile.Name), "C:\myfolder\Log20*")
	
	For Each oFile in oFolder.Files
		
		'Check for a file of the format *LOG20*.TXT
		if inStr(uCase(oFile.Name), "LOG20") > 0 and uCase(right(oFile.name,4)) = ".TXT" then 
			oSdate = DateValue(oFile.DateLastModified)
			oCdate = DateDiff("d", oSdate, Date)
												
			'Log and delete *LOG20*.TXT files older than 15 days
	if oCdate >= 15 And objFSO.size < 2 Then
			Call LoggerF(oFile.Path)
		     	oFile.Delete True
			End if		
		
		end If
 
	Next
 
End Sub
'======================================
 
'=====================
'Write Log Sub
 
 
Sub LoggerF(fPath)
	DIM oFSO, oStream, oFile, WshNetwork
 
	On Error Resume Next
 
	Set WshNetwork = WScript.CreateObject("WScript.Network")
 
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	Set oFile = oFSO.GetFile("CleanupLog.txt")
	Set oStream = oFile.OpenAsTextStream(8, 0)
 
	oStream.Write VbCrLf & Ucase(WshNetwork.UserName) & " deleted " & fPath & " at " & Now
	oStream.Close
	
	set oStream = Nothing
	set oFile = Nothing
	set oFSO = Nothing
	set WshNetwork = Nothing
 
End Sub
'=====================
 
on error resume Next
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = Wscript.CreateObject("Wscript.Shell")
 
'Call the Sub-routine that searches and deletes the files
fFIND fso.GetFolder("C:\myfolder")
objShell.LogEvent EVENT_SUCCESS, "Log file cleanup finished at " & date
Wscript.Quit
set objShell = Nothing
set fso = Nothing

Select allOpen in new window