cancellare file se esiste

[zoc]

ciao a tutti
ho un problemino....
devo cancellare dei file dal server, se pero' non esistono me li dovrebbe bipassare...su chi faccio il controllo?

sqlFoto = "SELECT files from tab_foto where id_menu="&id
Set objrsFoto = Server.CreateObject("ADODB.Recordset")
objrsFoto.Open sqlFoto, Conn

Do While Not objrsFoto.EOF
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
path="imgDB/"&objrsFoto("files")
objFSO.DeleteFile(Server.Mappath(path))
Set objFSO = Nothing
objrsFoto.Movenext
Loop

objrsFoto.close
set objrsFoto = nothing

Infatti a volte "files" contiente del testo, ma non ce' il corrispettivo file da cancellare...quindi il controllo non posso farlo su di lui...

grazie mille!!!

[Baol74]

sqlFoto = "SELECT files from tab_foto where id_menu="&id 
Set objrsFoto = Server.CreateObject("ADODB.Recordset") 
objrsFoto.Open sqlFoto, Conn 

Do While Not objrsFoto.EOF 
Dim objFSO 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
path="imgDB/"&objrsFoto("files") 
on error resume next
objFSO.DeleteFile(Server.Mappath(path)) 
on error goto 0
Set objFSO = Nothing 
objrsFoto.Movenext 
Loop 

objrsFoto.close 
set objrsFoto = nothing

[weppos]

Oppure controlla che il file esista prima di cancellarlo.
http://www.weppos.com/asp/script/scr....asp?script=18

[zoc]

grazie mille ragazzi!