Search found 1 match
- Tue Jun 12, 2007 8:51 am
- Forum: VBScript
- Topic: Compair Date returned from DateLastModified
- Replies: 6
- Views: 5073
Compair Date returned from DateLastModified
Try this: folders = "C:Documents and Settings" DeleteOldProfiles(folders) Function DeleteOldProfiles(folderspec) Set sf = CreateObject("Scripting.FileSystemObject").GetFolder(folderspec).subfolders on Error Resume Next For Each fl in sf NewDate = FormatDateTime(fl.DateLastModifie...