webForumDet fria alternativet

Spara ned filen från minnet?

ASP

1 svar · 436 visningar · startad av medialabs

Medlem sedan mars 20023 686 inlägg
Frågan#1

Har nu spenderat större delen dagen och brottats med följande problem. Jag har näääästan lyckats få ihop ett komplett uppladdningsfunktion för våra medlemmar. Det enda som krånglar nu är själva funktionen för att spara ned det som finns i MINNET

Använder ASPUpload och jag har nu följt deras support/referenceguide osv till punkt och pricka.

Jag får följande felmeddelande efter att ha stängt av On Error resume next.

Object required: 'File'

For Each File in Upload.Files

<%

'## -- Skapar ASPupload objektet.
Set Upload = Server.CreateObject("Persits.Upload")

directoryname="d:\user\" & Session("folder") & "\"
Set fso = CreateObject("Scripting.FileSystemObject") 
set mainfolder=fso.GetFolder(directoryname)

totalt = mainfolder.size

'## -- Max 500 kb får laddas upp åt gången
Upload.SetMaxSize 512000, True 

'## -- Fånga upp alla felmeddelanden
On Error Resume Next

'## -- Spara i minnet för kontroll av storlek
Upload.Save

'## -- För att ange vart filen lite längre ned skall sparas ned
path = "d:\user\" & Session("folder")

'## -- 8 is the number of "File too large" exception
	If Err.Number = 8 Then
	   Response.Write "Your file is too large. Please try again."
	Else
	   If Err <> 0 Then
	      Response.Write "An error occurred: " & Err.Description
	   Else
	     '## -- filen är godkänd!
	   End If
		End If

For Each File in Upload.Files
filen = file.size
Next

'## -- Kontroll av storleken samt tillgängligt utrymme, om kvoten är uppfylld, förstör filen
if filen + totalt > 2048000 then

	File.Delete
	response.redirect "max_2_mb.asp"
end if

'## -- Om allt OK, då sparar vi filen i rätt katalog
'## -- Men den sparar inte ned filen från minnet?! förstår inte detta!?!?

'File.SaveAs "d:\user\" & Session("folder") & "\" & File.FileName
'File.SaveAs path "d:\user\" & Session("folder") & "\" & File.FileName

'Har testat också med att ange Path enligt nedan, men inget sparas ned, och inga felmeddelande heller..
File.SaveAs Path & File.FileName

response.redirect "ladda_upp.asp"

%>

Hoppas att någon kan kasta en livboj till mig! :)

Medlem sedan mars 20023 686 inlägg
#2

Fan vad dum man är! Konsulterade manualen igen och upptäckte att jag saknade en ganska vital sak, nämligen:

Set File = Upload.Files("FILE1")

nu funkar det :e

290 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
152 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)