Con esta funcion pueden comprovar si un archivo existe o no en cierta direccion:

Código:
Public Function ArchivoExiste(NombreArchivo As String) As Boolean
If NombreArchivo = "" Or Right(NombreArchivo, 1) = "\" Then
 ArchivoExiste = False: Exit Function
End If
ArchivoExiste = (Dir(NombreArchivo) <> "")
End Function

Se usa así:

Código:
if ArchivoExiste("c:\hola.txt") then
kill "c:\hola.txt"
end if

Saludos,
Skipped

Edited by: Skipped