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
1 svar · 436 visningar · startad av medialabs
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! :)
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