Comprobar si existe un directorio o archivo (sin usar DIR)

Paso 1: Añadir la referencia "Windows Script Host Object Model"

Paso2: Crear las siguientes funciones:

Public Function DirectoryExists(Dir As String) As Boolean
Dim oDir As New FileSystemObject
DirectoryExists = oDir.FolderExists(Dir)
End Function

Public Function FileExists(File As String) As Boolean
Dim oDir As New FileSystemObject
FileExists = oDir.FileExists(File)
End Function