Comprobar si un archivo existe con VBA.

Durante estás semanas he tenido que trabajar con la ejecución de Macros en un ambiente de Outlook, por lo que he tenido que meterme a fondo en las ultimas dos semanas, por lo que les publicaré algunos

detalles que tuve que utilizar durante esté proceso de aprendizaje.

Por lo pronto, veremos como comprobar si un archivo físico existe en un directorio con VBA (Visual Basic Application).

Suponemos que vamos a leer un fichero con un formato en especifico, para poder leerlo tendremos que verificar que antes exista como es obvio, por lo que para saber si esté archivo existe validamos lo siguiente:

Ejemplo:

Sub existeArchivo()

Dim Archivo As String

Archivo = "C:\test.xls" 'Ruta del Archivo

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(Archivo) Then

'Incluimos lógica de lectura ya que el archivo existe

Else

' Escribimos en log que el archivo no puede leerse ya que no existe.

End If

End Sub

Esté ejemplo es muy sencillo, por lo que tendremos que incluir la

lógica necesaria acorde a nuestro problema en caso de existir o no.

Dejen sus dudas y/o comentarios.