Small administrator addition to Proeder's Mod

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/64626?pagenum=1
05 November 2025, 10:42

Topic

PPSSWeb
Small administrator addition to Proeder's Mod
26 April 2007, 17:15


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. cool 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.<

 

Replies ...

modifichicci
27 April 2007, 16:20


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..<
PPSSWeb
27 April 2007, 16:52


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.<
thermal_seeker
27 April 2007, 18:14


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

Dave

<
PPSSWeb
30 April 2007, 10:35


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.
<
thermal_seeker
02 May 2007, 01:24


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
<
PPSSWeb
02 May 2007, 09:35


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. <
PPSSWeb
02 May 2007, 14:14


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

<
thermal_seeker
02 May 2007, 15:03


I have replied..
and BTW thank you for the scrollcode tip wink
Dave<
PPSSWeb
02 May 2007, 17:07


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.<
© 2000-2021 Snitz™ Communications