I don't know of a utility but you can use FSO (File Scripting Object) in a
vb script file to do this
e.g. (please don't try this anywhere important its just an example off the
top of my head)
Dim folderpath,old,yesno,fso,fldr,files,i
folderpath = Inputbox("Please Enter Folder Path")
old = Inputbox("Delete files older than this date")
yesno = Msgbox("Are you sure ?",4,"delete.vbs")
If (yesno<>6) Then
WScript.Quit
End If
set fso=WScript.CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(folderpath)) Then
set fldr=fso.GetFolder(folderpath)
set files = fldr.Files
For each f in files
If (DateDiff("d",old,f.DateLastModified) < 0) Then
f.Delete True
i=i+1
End If
Next
If (i>0) Then
Msgbox(i & " files deleted !")
WScript.Quit
Else
Msgbox("No files to delete !")
WScript.Quit
End If
Else
Msgbox("Folder not found [" & folderpath & "]")
WScript.Quit
End If
----- Original Message -----
From: "Craig Manske" <[EMAIL PROTECTED]>
To: "MSWinNT Discussions" <[EMAIL PROTECTED]>
Sent: Wednesday, December 19, 2001 6:43 PM
Subject: NT file find
> I'm looking for something similar to Unix find for NT. What I want to do
is
> search through a directory for files older then a certain date and delete
> them. Anyone know of such a utility without installing one of those Unix
> shells for NT?
>
> -cm
>
>
> ------
> You are subscribed as [EMAIL PROTECTED]
> Archives: http://www.swynk.com/sitesearch/search.asp
> To unsubscribe send a blank email to [EMAIL PROTECTED]
>
------
You are subscribed as [email protected]
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe send a blank email to [EMAIL PROTECTED]
