Small administrator addition to Proeder's Mod

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.

Small administrator addition to Proeder's Mod - Posted 26 Apr 2007 17:15 (1604 Views)

PPSSWeb

Junior Member

Posts: 312

312

This small code modification works with the administrator myfiles page for Proeder's File Attachment MOD. It places a separator between user folders in the file list, each the user folder's size and links to jump directly to a particular user's folder from the top of the page (and back).
I have a number of users who upload files and need them referenced by me (the admin). This formatting addition made it easier for me to locate a users files in the long list. Also it allows me to see how much disk space each user is utilizing.
The following highlighted (red) code gets inserted at the end portion of the ScanFolders function in myfiles.asp starting at around line #433:

Code:

		if AdminAllowed then 		
		
			'#################display current folder and disk usage################
			Dim FolderList, dFolderList
			'#################End display current folder and disk usage############
		
			Set fc = f.SubFolders
	
			For Each Folder in fc
			
				SubFolderName = "/" & Folder.Name
									
				if LCase(Mid(SubFolderName,1,5)) <> "/_vti" then
				
					'#################display current folder and disk usage################	
					If Folder.Size > 0 then 
						If FolderList = "" Then
							FolderList = "<CENTER><B>USER FOLDERS: <a href='#" & Ucase(Folder.Name) & "'>" & Ucase(Folder.Name) & "</a>"
							dFolderList = "<form name=""UserFolders""><select name=""menu"" size=""1"" onChange=""location=document.UserFolders.menu.options[document.UserFolders.menu.selectedIndex].value;""><option value=''>User Folders</option>"
							dFolderList = dFolderList + "<option value='#" & UCase(Folder.Name) & "'>" & Ucase(Folder.Name) & "</option>"
						Else
							FolderList = FolderList + " | <a href='#" & Ucase(Folder.Name) & "'>" & Ucase(Folder.Name) & "</a>"
							dFolderList = dFolderList + "<option value='#" & UCase(Folder.Name) & "'>" & Ucase(Folder.Name) & "</option>"
						End If
						Response.Write "<tr><td bgcolor=""" & STRFORUMCELLCOLOR & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><B>#160;<A NAME='" & UCase(Folder.Name) & "'>" & UCase(Folder.Name)& "</A></B> - Disk Usage = " & Round(Folder.Size/1048576,2) & " MB</font></td><td bgcolor=""" & STRFORUMCELLCOLOR & """><a href='#TOP'><img src=""../img/forums images/icon_go_up.gif"" width=""15"" height=""15"" border=""0"" alt=""Go to Top of Page"" title=""Go to Top of Page"" align=""right""></a></td></tr>" 	       
					End If					  
					'#################End display current folder and disk usage############
			
					response.write "<BLOCKQUOTE>"
					Call ScanFolders(PathSpec & "/" & Folder.Name)
					response.write "</BLOCKQUOTE>"
					
				end if
			Next
		end if

	'#################display current folder and disk usage################	
	Response.Write FolderList + "</B></CENTER><p>" 
	Response.Write dFolderList + "</select></form>"	
	'#################End display current folder and disk usage############
End Function

I hope someone else finds this useful as well.

As always, if someone finds an error in this snippet, please let me know.

Edit: This updated code is to replace any prior version. The code outputs both a list (FolderList) and drop down menu (dFolderList). If you prefer one over the other, simply remove the references to the one you do not want and keep the other, or leave them and have both choices functional.<

Last edited by PPSSWeb on 02 May 2007, 17:05

Posted 27 Apr 2007 16:20

modifichicci

Average Member

Posts: 787

787

Nice adding, i was thinking if it's possible to have member list in a selectbox instead of a long list? If a forum has many members it could be very very useful..<

Ernia e Laparocele Forum di Ernia e Laparocele Acces - MySql Migration Tutorial Adamantine forum

Posted 27 Apr 2007 16:52

PPSSWeb

Junior Member

Posts: 312

312

I tried that, but didn't like how the drop down stayed selected at the last username when returning to the top of the page using the icon in the separator bar or at the bottom of the page. Since I only allow administrators, moderators and select users the ability to upload, the normal text list works well for me.
This should generate the same list as a drop down for you:
Edit: This code has been included in the updated version in the first post of this topic.<

Last edited by PPSSWeb on 02 May 2007, 17:06

Posted 27 Apr 2007 18:14

thermal_seeker

Junior Member

Posts: 430

430

thats really nice PPSS..
how do I get rid of the "USER FOLDERS: _VTI_CNF" list??

Dave

<

No good at coding, but I can plough a field !!

Posted 30 Apr 2007 10:35

PPSSWeb

Junior Member

Posts: 312

312

This line in the code section above should eliminate those listings.

Code:

if LCase(Mid(SubFolderName,1,5)) <> "/_vti" then

Make sure you didn't loose that line when adding the new sections in red.
<

Posted 02 May 2007 01:24

thermal_seeker

Junior Member

Posts: 430

430

just rechecked and I didn't loose that line....??

Code:

			'#################display current folder and disk usage################	 
				Dim FolderList		  
		'#################End display current folder and disk usage############  
		
			Set fc = f.SubFolders
	
			For Each Folder in fc
			
				SubFolderName = "/" & Folder.Name
				
'#################display current folder and disk usage###############
If Folder.Size > 0 then 
If FolderList = "" Then
FolderList = "<CENTER><B>USER FOLDERS: <a href='#" & Ucase(Folder.Name) & "'>" & Ucase(Folder.Name) & "</a>"
Else	
FolderList = FolderList + " | <a href='#" & Ucase(Folder.Name) & "'>" & Ucase(Folder.Name) & "</a>"
End If			
End If	
'#################End display current folder and disk usage#############
				
				if LCase(Mid(SubFolderName,1,5)) <> "/_vti" then
				
'#################display current folder and disk usage################	
	If Folder.Size > 0 then  
	Response.Write "<tr><td bgcolor=""" & STRFORUMCELLCOLOR & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><B><A NAME='" & UCase(Folder.Name) & "'>" & UCase(Folder.Name)& "</A></B> - Disk Usage = " & Round(Folder.Size/1048576,2) & " MB</font></td><td bgcolor=""" & STRFORUMCELLCOLOR & """><a href='#TOP'><img src=""../forum/images/icon_go_up.gif"" width=""15"" height=""15"" border=""0"" alt=""Go to Top of Page"" title=""Go to Top of Page"" align=""right""></a></td></tr>" 	 
	End If			     
'#################End display current folder and disk usage############							
			
					response.write "<BLOCKQUOTE>"
						Call ScanFolders(PathSpec & "/" & Folder.Name)
					response.write "</BLOCKQUOTE>"
					
				end if
			Next
		end if
'#################display current folder and disk usage################	
		Response.Write FolderList + "</B></CENTER><p>" 
'#################End display current folder and disk usage############
		
End Function

No good at coding, but I can plough a field !!

Last edited by thermal_seeker on 02 May 2007, 13:36

Posted 02 May 2007 09:35

PPSSWeb

Junior Member

Posts: 312

312

Originally posted by thermal_seeker
just rechecked and I didn't loose that line....??

Weird, I just checked your code against mine and it is identical and unless I comment out that line I can not get it to display any _vti directory. I even pasted your code into my myfiles.asp page and it still works properly.

Did these items show in your file list before the insertion of this code? If you comment out my code addition, do they go away?
Can you email the image posted above? I can not get to it due to the firewall settings at work. Perhaps that will give me a clue.
P.S. - You might want to use the [ scrollcode ][ /scrollcode ] tags on the code in your post above to keep it from stretching the screen so much. <

Last edited by PPSSWeb on 02 May 2007, 09:39

Posted 02 May 2007 14:14

PPSSWeb

Junior Member

Posts: 312

312

Got your email.
Try changing:

Code:

if LCase(Mid(SubFolderName,1,5)) <> "/_vti" then

To:

Code:

if LCase(Mid(SubFolderName,1,5)) <> "/_vti" and LCase(Mid(SubFolderName,1,9)) <> "/_vti_cnf" then

Posted 02 May 2007 15:03

thermal_seeker

Junior Member

Posts: 430

430

I have replied..
and BTW thank you for the scrollcode tip

Dave<

No good at coding, but I can plough a field !!

Posted 02 May 2007 17:07

PPSSWeb

Junior Member

Posts: 312

312

I have updated the code in the first post to reflect the fix for the _vti_cnf error that thermal_seeker found.

It now also outputs both a text list (FolderList) and drop down menu (dFolderList). If you prefer one over the other, simply remove the references to the one you do not want and keep the other, or leave them and have both choices functional.
thermal_seeker,
Thanks again for finding and helping me work out that bug.<

Last edited by PPSSWeb on 02 May 2007, 17:10