Messaggio se file non disponibile

[fraude]

Ciao a tutti; utilizzo questo codice per cancellare un file txt che si crea all'accesso ad una pagina web chiamata test.asp:

Set objFSO = CreateObject("Scripting.FileSystemObject")	 
    nome = "rpt.txt"
    
 if objFSO.FileExists(Server.MapPath("public/" & nome)) then
	objFSO.DeleteFile(Server.MapPath("public/" & nome)), true
 End if
    Set objFSO = Nothing

Spesso mi capita di aprire questo file in locale per consultarlo e se provo a richiamare la pagina web test.asp mentre il file rpt.txt è aperto, la pagina web test.asp restituisce giustamente:

Error Type:
Microsoft VBScript runtime (0x800A0046)
Autorizzazione negata.

C'è una forma per evitare il msg di errore e magari dire all'utente che cerca di consultare la pagina che non è al momento disponibile?

Grazie

[Sypher]

un semplice controllo sull'errore?

[fraude]

Grazie, ma controllare quale tipo di errore?
Se il file risulta aperto sul mio pc?

[fraude]

up

[Mems]

on error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")	 
    nome = "rpt.txt"
    
 if objFSO.FileExists(Server.MapPath("public/" & nome)) then
	objFSO.DeleteFile(Server.MapPath("public/" & nome)), true
        if err <> 0 then response.write "Impossibile cancellare il file. Riprovare dopo..."
 End if
    Set objFSO = Nothing

[fraude]

10000 grazie!