Hallo Claudius !
Hab ich grad versucht. Tut sich auch nix ...
Nochmal die neue Version
<%
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
Set Dir = 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
File.Delete
End If
Set File = Nothing
Link = "Anzeigen.asp?Pfad=" & Pfad
'Response.Redirect(Link)
%>
-----Urspr�ngliche Nachricht-----
Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]]
Gesendet: Samstag, 23. Februar 2002 12:12
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] RE: ActiveFile - Problem
Ich kenn zwar die Komponenten nicht, aber kann es sein, dass die Datei
noch von anderen Komponenten referenziert wird, w�hrend Du versuchst sie
zu l�schen? Du hast z.B. das Archive-Object noch nicht zerst�rt...
Versuch mal erst alle anderen Onjekte, die auf diese Datei zugreifen zu
zerst�ren....
Claudius
> -----Original Message-----
> From: Christian Freund [mailto:[EMAIL PROTECTED]]
> Sent: Samstag, 23. Februar 2002 11:21
> To: AspGerman Kaffeehaus
> Cc: [EMAIL PROTECTED]
> Subject: [aspdecoffeehouse] ActiveFile - Problem
>
>
> 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/aspdecoffee
house.asp
| [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.as
| p
| [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
