Hallo !
Ich habe wieder mal ein Problem mit der katastrophalen Dokumentation von
ActiveFile und hoffe, da� sich jemand meiner annimmt:
Nachdem ich das ZipFile ausgepackt habe, m�chte ich es l�schen. So, wie
es in der Doku steht ( File.Delete ) scheint es aber nicht zu gehen. Ich
bekomm hier Zugriff verweigert, obwohl der IUSER Vollzugriff hat.
Braucht er mehr Rechte oder brauchen andere User Rechte, oder wie krieg
ich das File weg?
<%
strGuid = Mid(Server.CreateObject("scriptlet.typelib").guid, 1, 38)
Pfad = "..\upload\" & strGuid
Pfad = Server.MapPath(Pfad)
Set Dir = Server.CreateObject("ActiveFile.Directory")
Dir.Create Pfad
Set Post = Server.CreateObject("ActiveFile.Post")
Post.Upload Pfad, 1
Set File = Server.CreateObject("ActiveFile.File")
File.Name = Post.FormInputs("datei").file
strDateipfad = File.Name
strDateierweiterung = File.FileExtension
strDateiname = File.FileName
strDateigroesse = File.Size
Set Post = Nothing
If strDateierweiterung = "zip" Then
' ZIP-File auspacken
ZipFile = strDateipfad
Ziel = Pfad
Set Archive = Server.CreateObject("ActiveFile.Archive")
Archive.OpenArchive zipfile
Files = "*"
Archive.Extract Files, Ziel
Set Archive = nothing
' ZIP-File l�schen
File.Delete ' <-- hier kracht's !!!
End If
Set File = Nothing
Link = "Anzeigen.asp?Pfad=" & Pfad
'Response.Redirect(Link)
%>
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
