quote:

---

Originally posted by PPSSWeb

You might also want to let the users know how much disk space they have used of their quota in the myfiles page.

Insert at line#222 the following:

'#################display current disk usage################
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Dim ds 
Set ds=ScriptObject.GetFolder(Path)	
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize-2 & """><b>Current Disk Usage = " & Round(ds.Size/1048576,2) & " MB" 
IF AdminAllowed=false then 
	Response.Write  " of "& maxDiskSpace/1048576 & " MB</b></font></p><p>"
Else
	Response.Write  "</b></font></p><p>"
End IF

set ds=nothing
'###########################################################

---

quote:

---

Originally posted by thermal_seeker

would you like to share your piece of code??

would I have to make extra usergroups (ie file upload, file upload2, file upload3 etc?)

EDIT: thinking about this a bit more.. I have set the max upload size to 20MB. Once a user gets to that amount surely all I would have to do is allow them to usergroup fileupload2 for a further 20MB?? and so on...or am I missing something??
I presume that I would also have to add another line to post.asp

if ((mlev > 3) or InArray(strGroupMembership, intFileUpload2Allowed)) then ' check that user is either administrator of member of upload2 usergroup

and in config.asp

const intFileUpload2Allowed = <integer value of group>

Dave

---

quote:

---

Originally posted by Desmomax

it works!!! Great!!! :)

i have only a little error:

when i try to upload a file too big then i receive the error message , when i click to COME BACK on the pop up windows i receive this error:

Errore di run-time di Microsoft VBScript error '800a0005'

Chiamata di routine o argomento non validi: 'MidB'

/myforum/upload.asp, line 5


The line is:
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)


any idea?

---

quote:

---

Originally posted by Desmomax

quote:

---

Originally posted by PPSSWeb

You might also want to let the users know how much disk space they have used of their quota in the myfiles page.

Insert at line#222 the following:

'#################display current disk usage################
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Dim ds 
Set ds=ScriptObject.GetFolder(Path)	
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize-2 & """><b>Current Disk Usage = " & Round(ds.Size/1048576,2) & " MB" 
IF AdminAllowed=false then 
	Response.Write  " of "& maxDiskSpace/1048576 & " MB</b></font></p><p>"
Else
	Response.Write  "</b></font></p><p>"
End IF

set ds=nothing
'###########################################################

---

Hallo,

i tried to test the code with a username i created.

This directory doesnt exist in upload folder (No files uploaded by this user) then if i click on MY FILES i receive the following error:

Files nella tua directory di upload...

Errore di run-time di Microsoft VBScript error '800a004c'

Impossibile trovare il percorso (path not found)

/myforum/myfiles.asp, line 225


Line 225 is the one you suggest me:
Set ds=ScriptObject.GetFolder(Path)


Do you know how to fix it?

many thanx

---

IF ScriptObject.FolderExists(Path) THEN

End IF

quote:

---

Originally posted by PPSSWeb
Right,

Good catch, we need to check that the folder exists before we start getting the details from it. change that piece of code to the following.

Try putting this:

IF ScriptObject.FolderExists(Path) THEN

before the dim ds
and close the if by putting

End IF

after the set ds=nothing

Let me know if that clears it up. If so we should rework it so it fits into the IF statement below which performs the same check.

---

quote:

---

Originally posted by Desmomax

Many thanx!!! now it works!!

---

quote:

---

Originally posted by PPSSWeb

quote:

---

Originally posted by Desmomax

Many thanx!!! now it works!!

---

Did you try the most recent version of the code? I would like to have someone test it to make sure I didn't forget anything.

Thanks,
Steve

---

quote:

---

Right,

Good catch, we need to check that the folder exists before we start getting the details from it. change that piece of code to the following.

Try putting this:

IF ScriptObject.FolderExists(Path) THEN


before the dim ds
and close the if by putting

End IF


after the set ds=nothing

Let me know if that clears it up. If so we should rework it so it fits into the IF statement below which performs the same check.

---

quote:

---

Originally posted by Desmomax

Thanks PPSSWeb but i dont have usergroup mod installed and i am not interested..

---

quote:

---

Originally posted by Desmomax

is it possibile to do not check the space used only by MODERATORS and ADMIN ?

how i have to modify your code to do this?
many thanx

---

Response.Write	"	 <input type=""hidden"" name=""memberName"" value=""" & strDBNTUserName & """><input type=""hidden"" name=""memberID"" value=""" & MemberID & """><input type=""hidden"" name=""mLev"" value=""" & mLev & """>" & vbNewline & _

mLev = UploadRequest.Item("mLev").Item("Value")

IF (mLev < 3)

End If

quote:

---

Originally posted by Desmomax

yes, you are right... i'd like to perform quota check only on normal users.

I tried to insert the code you suggest but something is wrong.. i am not sure about the right position for the code in outputfile.asp as i have at line 75 comments lines.

Here is mine outputfile.asp , could you please take a look?

---

quote:

---

Originally posted by Desmomax


after that, sure, i need to change also myfiles.asp...

really appreciate your help

---