Kann es sein, da� - das Post-Objekt noch ein Datei-Handle hat, also erst noch zerst�rt werden mu�
oder - strDateipfad gar nicht den voll qualifizierten Pfad enth�lt? > -----Original Message----- > From: Christian Freund [mailto:[EMAIL PROTECTED]] > Sent: Sunday, February 24, 2002 6:04 PM > To: AspGerman Kaffeehaus > Subject: [aspdecoffeehouse] AW: RE: FSO "Zugriff Verweigert" > > > 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 > > %> > | [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
