VBA le permite verificar si existe un archivo o carpeta usando el Dir función.
Uso del comando Dir para verificar si existe un archivo
Como mencionamos en la introducción, el Dir La función nos permite comprobar si existe un archivo seleccionado en la computadora. Aquí está el código:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName como cadenaDim strFileExists como cadenastrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Si strFileExists = "" EntoncesMsgBox "El archivo seleccionado no existe"DemásMsgBox "El archivo seleccionado existe"Terminara siEnd Sub |
Primero asignamos la ruta del archivo a la variable strFileName. Entonces usamos el Dir función para obtener el nombre del archivo en la variable strFileExists. Si el archivo existe en el directorio, su nombre se asignará a la variable de cadena strFileExists. Si no existe entonces strFileExists permanecerá en blanco. Finalmente, aparece el cuadro de mensaje informándonos si el archivo existe o no.
Uso del comando Dir para verificar si existe una carpeta
De manera similar a verificar si existe un archivo, puede verificar si existe una carpeta. Solo necesita agregar un argumento al Dir mando. Veamos el código:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName como cadenaDim strFolderExists as StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Si strFolderExists = "" EntoncesMsgBox "La carpeta seleccionada no existe"DemásMsgBox "La carpeta seleccionada existe"Terminara siEnd Sub |
Primero asignamos la ruta de la carpeta a la variable strFolderName. Entonces usamos el Dir función para obtener el nombre del archivo en la variable strFileExists. Para verificar una carpeta, necesitamos agregar el segundo argumento a la función: vbDirecotry. Si la carpeta existe en el directorio, su nombre se asignará a la variable strFolderExists. Que no strFolderExists permanecerá en blanco.
