VBA consente di verificare se esiste un file o una cartella utilizzando il Dir funzione.
Utilizzo del comando Dir per verificare se esiste un file
Come accennato nell'introduzione, il Dir La funzione ci permette di verificare se un file selezionato esiste sul computer. Ecco il codice:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName As StringDim strFileExists As StringstrFileName = "C:\Utenti\Nikola\Desktop\Articoli VBA\Test File Exists.xlsx"strFileExists = Dir(strFileName)Se strFileExists = "" ThenMsgBox "Il file selezionato non esiste"AltroMsgBox "Il file selezionato esiste"Finisci seFine sottotitolo |
Per prima cosa abbiamo assegnato il percorso del file alla variabile strFileName. Quindi usiamo il Dir funzione per ottenere il nome del file nella variabile strFileExists. Se il file esiste nella directory, il suo nome sarà assegnato alla variabile stringa strFileExists. Se non esiste allora strFileExists rimarrà vuoto. Infine, appare la finestra di messaggio che ci informa se il file esiste o meno.
Utilizzo del comando Dir per verificare se esiste una cartella
Analogamente al controllo dell'esistenza di un file, è possibile controllare l'esistenza di una cartella. Devi solo aggiungere un argomento al Dir comando. Diamo un'occhiata al codice:
| 123456789101112131415 | La cartella di controllo secondaria esiste ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C:\Users\Nikola\Desktop\Articoli VBA\Test Folder\"strFolderExists = Dir(strFolderName, vbDirectory)Se strFolderExists = "" ThenMsgBox "La cartella selezionata non esiste"AltroMsgBox "La cartella selezionata esiste"Finisci seFine sottotitolo |
Per prima cosa abbiamo assegnato il percorso della cartella alla variabile strNomeCartella. Quindi usiamo il Dir funzione per ottenere il nome del file nella variabile strFileExists. Per controllare una cartella, dobbiamo aggiungere il secondo argomento alla funzione - vbDirectory. Se la cartella esiste nella directory, il suo nome sarà assegnato alla variabile strFolderExists. Altrimenti strFolderExists rimarrà vuoto.
