dellog.vbs

station pcstation pcstation pcstation pcstation pcstation pc

Dim fso, f, f1, fc, s, WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("d:\packpc\log")
Set fc = f.Files
For Each f1 in fc
   if f1.DateLastModified < Date-7 then
   		fso.DeleteFile f1
   End If
Next

WSHShell.Run "logput.cmd"