Mehrere Dateien löschen?

[Roman Pfarrhofer]

Hi Leute!

Heute darf ich mal eine Frage loswerden ;-)

Ich würde gerne mehr als eine Datei möglichst elegant löschen können. Das Problem was ich hab ist nicht unbedingt das "löschen" sondern das "mehrere".

Also folgendes Script funktioniert Problem los bei einer Datei, aber bei mehr als einer Datei kommt folgende Fehlermeldung:

"Laufzeitfehler in Microsoft VBScript- Fehler '800a0035'
Die Datei wurde nicht gefunden."

Den Fehler gibt er schon beim löschversuch der ersten datei aus! (achja und sie ist vorhanden ;-) - Es wird auch keine der dateien gelöscht... echt strange..

der Source:
============================SNIP==============================
<p>
  Following file(s) deleted:
</p>
<%
todelete=request("todelete")
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "SELECT TBL_DATEI.TXT_DATEINAME, "&_
           "TBL_PROJEKT.TXT_P_ORDNER "&_
         "FROM TBL_DATEI, "&_
           "TBL_PROJEKT "&_
         "WHERE TBL_DATEI.NUM_PROJEKT = TBL_PROJEKT.IDX_PROJEKT AND "&_
           "TBL_PROJEKT.IDX_PROJEKT = "&num_Projekt&" AND "&_
           "TBL_DATEI.IDX_DATEI ="&Replace(todelete,","," OR TBL_DATEI.IDX_DATEI ="), conn
  while Not rs1.EOF
    TXT_DATEINAME=rs1("TXT_DATEINAME")
    TXT_DATEINAME=tounicode(TXT_DATEINAME)
    Response.Write(TXT_DATEINAME&"<br />")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.GetFile(Server.MapPath("/files/"&rs1("TXT_P_ORDNER")&"/"&TXT_DATEINAME))
    f1.Delete(false)
    Set f1 = Nothing
    Set fso = Nothing
    rs1.MoveNext
  wend
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open Replace("DELETE FROM TBL_DATEI WHERE TBL_DATEI.IDX_DATEI = "&todelete,","," OR TBL_DATEI.IDX_DATEI ="), conn
%>
============================SNIP==============================

Die Fehlermeldung kommt mit der Zeile wo das fso.GetFile notiert ist.

Meine Vermutung, daß das Problem durch mehre dateien hervorgerufen wird (obwohl ich mir das nicht vorstellen kann da, er schon bei der ersten datei jammert) begründet sich aus mehren spärlichen hinweisen - ua. http://www.quaschtel.de/wsh/fso.htm#lved

In unserem Forum wurde schon mal ende 1999 eine ähnliche frage gestellt - nur leider konnte sie mir nicht weiterhelfen http://forum.de.selfhtml.org/archiv/1999_4/t08672.htm

Ich hoffe mal ich habe irgendwas übersehen und jemand ist nicht so betriebsblind wie ich den ganzen abend schon ;-) - aber vielleicht ist es wirklich das problem was ich vermute und dann hätte vielleicht wer einen workaround?

Danke für die mühe

CU Roman

P.S.: Danke stefan falz für deine seite http://www.aspfaq.de hat mir schon mal geholfen...
PP.S.: leider hat dein featureartikel ein paar bugs (min. unter iis5) - ich weißt du hast deine kommerzielle komponente GetFile und darum warscheinlich nicht das interesse einen kompl. überarbeiten artikel mit einem perfekten script bereitzustellen - aber wenn du willst kann ich dir per mail über ein paar probs berichten.