Search found 1 match

by ayush
Tue Jun 12, 2007 8:51 am
Forum: VBScript
Topic: Compair Date returned from DateLastModified
Replies: 6
Views: 3094

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.DateLastModified, vbShortDate) WScr...