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 - Postet den 01 Jun 2008 (1066 Views)

leesh695

Junior Member

Innlegg: 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<

Postet den 02 Jun 2008

leesh695

Junior Member

Innlegg: 101

101

Not possible?<

Postet den 02 Jun 2008

MaD2ko0l

Senior Member

Innlegg: 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.<

Postet den 05 Jun 2008

leesh695

Junior Member

Innlegg: 101

101

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

Postet den 05 Jun 2008

PPSSWeb

Junior Member

Innlegg: 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

Postet den 16 Jun 2008

leesh695

Junior Member

Innlegg: 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 $