created a script to delete files ie) *.jpg files in folder and log entrys,
but must be missing something as it doesnt log
anything and doesnt delete anything anymore. It had it deleting at one stage,
but must have changed something and not sure what.
Any ideas clever people?
Path1 = "C:\Documents and Settings\REMOTEINSTALL\My Documents\My
Pictures\QuickCam\Album\Motion Images\Security Videos"
Dim objFSO 'File System Object - connection to file system
Dim oFolder 'holds path to image folder
Dim oFile 'variable for each file in folder
Dim logfile 'holds path to the log file
Dim objFile 'used by OpenTextFile command to allow writing to
file
Const ForWriting = 2
Const ForAppending = 8
logfile = "C:\Delete Files Script\log.txt"
Set objFSO = Createobject("Scripting.FileSystemObject")
Set oFolder = objFSO.GetFolder(Path1)
For Each oFile In oFolder.Files
If DateDiff("d", oFile.DateCreated,Now) > 14 Then
oFile.Delete
wscript.Echo "this file was deleted " & oFile.Name
If objFSO.FileExists(logfile) Then
Set objFile = objFSO.OpenTextFile(logfile, ForAppending)
objFile.Write oFile.Name
Else
Set objFile = objFSO.OpenTextFile(logfile, ForWriting)
objFile.Write oFile.Name
objFile.Close
'WScript.Echo "file " & oFile.Name
'objFile.WriteLine oFile.Name & Now 'Now command writes data/time
'objFile.Close
'WScript.Echo "Log file ammended"
End If
End If
Next