Questo serve per verificare se un file esiste:

On Error Resume Next
'Apre lo specifico file
Err = 0
Open "File" For Input As #1
'Gestione dell'eventuale errore
If Err <> 0 Then 'il file non esiste
MsgBox ("Il file non è stato trovato")
close #1
beep
exit sub
else
MsgBox ("Il file è stato trovato.")
End If


link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp