Function ScanFolders(PathSpec)
	
	Dim fs, f, Folder, fc, s, File, FileList, FolderInfo, FileName, Name
	
	response.write "<BLOCKQUOTE>"
	
	Set FolderInfo = Fso.GetFolder(PathSpec)
	Set FileList = FolderInfo.Files
	
        For Each File in FileList

        If File.DateCreated > TimeSelected  Then 'TimeSelected being today, this week, month, etc.  you would use your favorite date compare function here
           ' continue processing to output name
        Else 
           ' do nothing and continue to next file
        EndIf

quote:

---

Originally posted by PPSSWeb

In Function ScanFolders(PathSpec) you would need to check the date created for each file against the time frame you select.
Something Like:

Function ScanFolders(PathSpec)
	
	Dim fs, f, Folder, fc, s, File, FileList, FolderInfo, FileName, Name
	
	response.write "<BLOCKQUOTE>"
	
	Set FolderInfo = Fso.GetFolder(PathSpec)
	Set FileList = FolderInfo.Files
	
        For Each File in FileList

        If File.DateCreated > TimeSelected  Then 'TimeSelected being today, this week, month, etc.  you would use your favorite date compare function here
           ' continue processing to output name
        Else 
           ' do nothing and continue to next file
        EndIf

---