Myfiles.asp display options - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Myfiles.asp display options - Posted 01 Jun 2008 10:06 (1060 Views)

leesh695

Junior Member

Posts: 101

101

Hi,

Is it possible to modify the myfiles.asp file found in mikes file attachment mod.
So they you can have the option to only show files uploaded today, this week & this month?
Thanks in Advance.
- Lee<

Posted 02 Jun 2008 12:19

leesh695

Junior Member

Posts: 101

101

Not possible?<

Posted 02 Jun 2008 12:48

MaD2ko0l

Senior Member

Posts: 1053

1053

its proberly possiable, i would imaging you would just query the database for them files only, but i cannto help as i dont use mikes mod andi dont have the knowledge.<

Posted 05 Jun 2008 14:51

leesh695

Junior Member

Posts: 101

101

It looks in a folder with folders with usernames ect. I think<

Posted 05 Jun 2008 16:37

PPSSWeb

Junior Member

Posts: 312

312

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

Code:

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

Posted 16 Jun 2008 17:31

leesh695

Junior Member

Posts: 101

101

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:

Code:

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

Would someone be able to code this for me? I would pay a little $