Hallo !
Danke erst mal f�r die Hinweise.
Auf dem Verzeichnis habe ich schreib und leserechte. Ausserdem habe ich
das entsprechende Verzeichnis im INetPub und dem InterDev-Projektordner
f�r den Iuser freigegeben (Vollzugriff).
Anbei nochmal das bisherige komplette Script. Ich find eingentlich
keinen Fehler...
<%
strGuid = Mid(Server.CreateObject("scriptlet.typelib").guid, 2, 36)
TimeStamp = generateTimestamp
strUnterordner = TimeStamp & "-" & strGuid
'strUnterordner = strGuid
Pfad = "..\upload\" & strUnterordner
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 File = 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
dim fso
set fso = Server.CreateObject("Scripting.FilesystemObject")
fso.DeleteFile strDateipfad
set fso = nothing
End If
'Set File = Nothing
Link = "Anzeigen.asp?Pfad=" & Pfad
Response.Redirect(Link)
function generateTimestamp()
Zeit = now()
strJahr = year(Zeit)
strMonat = makeXX(month(Zeit))
strTag = makeXX(day(Zeit))
strStunde = makeXX(hour(Zeit))
strMinute = makeXX(minute(Zeit))
strSekunde = makeXX(second(Zeit))
strTimestamp = strJahr & strMonat & strTag & "-" & strStunde &
strMinute & strSekunde
generateTimeStamp = strTimestamp
end function
function makeXX(strInput)
strInput = CStr(strInput)
If Len(strInput)=1 Then
strInput = "0" & strInput
End If
makeXX = strInput
end function
%>
-----Urspr�ngliche Nachricht-----
Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]]
Gesendet: Sonntag, 24. Februar 2002 17:32
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] RE: FSO "Zugriff Verweigert"
Wahrscheinlich hast Du die Datei noch irgendwie anders im Zugriff...
Kann es sein, dass Du ein File-Objekt von der Datei hast, w�hrend Du
versuchst sie mit dem fso zu l�schen?
Claudius
> -----Original Message-----
> From: Christian Freund [mailto:[EMAIL PROTECTED]]
> Sent: Sonntag, 24. Februar 2002 17:21
> To: AspGerman Kaffeehaus
> Subject: [aspdecoffeehouse] FSO "Zugriff Verweigert"
>
>
> Hallo !
>
> Beim Versuch, eine Datei zu l�schen, bekomme ich die Meldung "Zugriff
> verweigert". Das Script ist lofisch und syntaktisch richtig. Was kann
> mit den Rechten alles im argen liegen?
>
>
>
> | [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
