Kan man göra så att en bild med Ta bort kommer fram på alla filer så man lätt kan ta bort dem - när man använder FileSystemObject???

Koden ser ut så här:

<%
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath("members"))

Response.Write "<b>Lista alla filer i members/ </b><hr>"
For Each File in Mapp.Files Response.Write File.Name & "<br>"
Next
Set Mapp = NothingSet Mappkoll = Nothing
%>

Faktum är att jag inte riktigt fattar vad du är ute efter men att ta bort en fil gör du såhär:
Dim filespec
Dim fso
filespec = server.mappath("bilder/usrID145.jpg")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(filespec) then 'Finns filen?
fso.DeleteFile(filespec)
end if

Annars hänvisar jag också, som jag ofta gör, till MSDN:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthDeleteFile.asp

Exemplet är iofs i VB men det är mycket lätt att fatta hur det ser ut i VBScript.

Ha en mysig helg!!
Mikael

Om du har alla bilder i samma katalog kan du göra så här:

listfiles.asp
------------
<%
'## -- sökvägen till katalogen med bilder --
strFolderPath = Server.MapPath("/fso/")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)
For Each File in objFolder.Files
strFileName = File.Name
Response.Write strFileName & " Delete<BR>"
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>


delete.asp
------------
<%
'## -- vilken fil ska tas bort --
strFile = Request.QueryString("file")

'## -- sökvägen till katalogen med bilder --
strFolderPath = Server.MapPath("/fso/")

'## -- hela sökvägen till filen som ska tas bort --
strFilePath = strFolderPath & "\" & strFile

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'## -- kontrollera om filen finns --
If objFSO.FileExists(strFilePath) Then
'## -- ta bort filen --
objFSO.DeleteFile(strFilepath)
Response.Write "Filen - <B>" & strFile & "</B> - har nu tagits bort."
Else
Response.Write "Det verkar som att filen inte finns."
End If
Set objFSO = Nothing
%>


Hoppas att detta hjälper dig.

OBS!!!!

designen e inte snygg så du får ju ändra den *ler*

cya,
PatrikB

och länken till VBScript: http://msdn.microsoft.com/scripting/

en stor rekomendation är att tanka hem hela VBScript dokumentationen där alla funktioner, objekt etc finns med + exempel för både vbscript och jscript

cya,
PatrikB