VBA vă permite să verificați dacă există un fișier sau folder utilizând Dir funcţie.
Folosind comanda Dir pentru a verifica dacă există un fișier
După cum am menționat în introducere, Dir funcția ne permite să verificăm dacă există un fișier selectat pe computer. Iată codul:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName Ca șirDim strFileExiste ca șirstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Dacă strFileExists = "" AtunciMsgBox „Fișierul selectat nu există”AltfelMsgBox "Fișierul selectat există"End IfSfârșitul Sub |
Mai întâi am atribuit calea fișierului variabilei strFileName. Apoi folosim Dir funcție pentru a obține numele fișierului în variabilă strFileExists. Dacă fișierul există în director, numele său va fi atribuit variabilei șir strFileExists. Dacă nu există atunci strFileExists va rămâne necompletat. În cele din urmă, apare caseta de mesaj care ne informează dacă fișierul există sau nu.
Folosind comanda Dir pentru a verifica dacă există un folder
În mod similar cu verificarea dacă există un fișier, puteți verifica dacă există un folder. Trebuie doar să adăugați un argument la Dir comanda. Să analizăm codul:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName Ca șirDim strFolder Exista ca sirstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Dacă strFolderExists = "" AtunciMsgBox „Dosarul selectat nu există”AltfelMsgBox "Dosarul selectat există"End IfSfârșitul Sub |
Mai întâi am atribuit calea folderului variabilei strFolderName. Apoi folosim Dir funcție pentru a obține numele fișierului în variabilă strFileExists. Pentru a verifica un folder, trebuie să adăugăm al doilea argument la funcție - vbDirecotry. Dacă folderul există în director, numele său va fi atribuit variabilei strFolderExists. Dacă nu strFolderExists va rămâne necompletat.
