Small administrator addition to Proeder's Mod - Postet den (1606 Views)
PPSSWeb
Junior Member
PPSSWeb
Innlegg: 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. 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.<
Sist redigert av
   
 Sidestørrelse 
Postet den
modifichicci
Average Member
modifichicci
Innlegg: 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
Postet den
PPSSWeb
Junior Member
PPSSWeb
Innlegg: 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.<
Sist redigert av
Postet den
thermal_seeker
Junior Member
thermal_seeker
Innlegg: 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 !!
Postet den
PPSSWeb
Junior Member
PPSSWeb
Innlegg: 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.
<
Postet den
thermal_seeker
Junior Member
thermal_seeker
Innlegg: 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 !!
Sist redigert av
Postet den
PPSSWeb
Junior Member
PPSSWeb
Innlegg: 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. <
Sist redigert av
Postet den
PPSSWeb
Junior Member
PPSSWeb
Innlegg: 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

<
Postet den
thermal_seeker
Junior Member
thermal_seeker
Innlegg: 430
430
I have replied..
and BTW thank you for the scrollcode tip wink
Dave<
No good at coding, but I can plough a field !!
Postet den
PPSSWeb
Junior Member
PPSSWeb
Innlegg: 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.<
Sist redigert av
 
Du må legge inn en melding