Datei aus einem Ordner löschen

[dw]

Sub x()
d = ShowFolderList("d:\fbn", "styleswitcher.js")
End Sub

Und jetzt die Funktion:
Function ShowFolderList(folderspec, FileToDelete)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 In fc
^^^^ Durchlaufe alle Dateien im Ordner
   If f1.Name = FileToDelete Then
^^^^ Wenn aktueller Dateiname gleich Name der zu löschenden Datei
    Debug.Print f1.Name
^^^^ Drucke den Namen ins Debug-Fenster (du mußt das durch den Löschbefehl ersetzen.
   End If

Next
   ShowFolderList = s
End Function

Danke, aber ich habs jetzt so gelöst:

const path="users"
path2 = Server.MapPath(path)
filetodelete = Request.QueryString("BName")
set FolderObjekt = CreateObject("Scripting.FileSystemObject")
set ListFolder = FolderObjekt.GetFolder(path2)
For Each FileName IN ListFolder.Files
  if FileName.Name = filetodelete then
  FileName.Delete
  end if
Next

..weil er bei dem obigen code in die function reinging, nur jetzt kann ich ihm nicht sagen das er die datei löschen soll: "diezulöschendedatei.*" sondern nur: "diezulöschendedatei.jpg" kann man das irgendwie hinbekommen? das die extension egal ist?