PDA

View Full Version : aspUploadhjälp!


Mika3l
2005-08-19, 23:05
När jag laddar upp bilder m.h.a aspUpload och sedan förminskar dom och sparar med annat namn så är dom gamla bilderna kvar på servern, hur ska jag göra för att bli av med dom? Testade att ladda upp i en annan mapp och sen ta bort alla filer i den m.h.a FSO men det var inte så lyckat.
Någon som kan hjälpa mig få ihop det hela? :)


objUpload.Save Server.MapPath("../images/archive")

For Each File in objUpload.Files
If File.ImageType <> "JPG" Then
Response.Write "Ogiltigt filformat! Det måste vara JPG din dumpung (" & File.Name & ")!<br /><br />"
File.Delete
Response.End
Else

SQLNewImage = "INSERT INTO tblImages (f_event) VALUES(" & objUpload.Form("event") & ")"
Connection.Execute(SQLNewImage)
Set rsGetID = Connection.Execute("select @@identity")
File.SaveAs Server.MapPath("../images/archive/" & rsGetID(0) & ".jpg")
rsGetID.Close : Set rsGetID = Nothing


objJpeg.Open File.Path

If objJpeg.OriginalWidth > objJpeg.OriginalHeight Then
objJpeg.Width = 400
objJpeg.Height = 300
Else
objJpeg.Width = 400
objJpeg.Height = 300
End If

objJpeg.Save File.Path

End If

'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Set folder = Fso.GetFolder(Server.MapPath("../images/archive/tempupload"))
'Set files = Folder.Files
'For each Item In Files
'Item.Delete
'Next
'Set files = Nothing : Set folder = Nothing : Set fso = Nothing

Next

Response.Write("Bilderna har laddats upp!<br /><a href=""?page=images&action=upload"">Ladda upp fler --></a>")

lilja
2005-08-19, 23:15
Jag brukar ladda upp bilderna i en temp-mapp, förminska och greja med dom och sedan skicka dem vidare till den mapp där de skall ligga. Sen tar jag bort filen i temp-mappen med FSO...

Du försöker ta bort hela mappen...