VBA lar deg sjekke om det finnes en fil eller mappe ved å bruke Dir funksjon.
Bruk Dir -kommandoen til å sjekke om det finnes en fil
Som vi nevnte i innledningen, Dir funksjonen lar oss sjekke om det er en valgt fil på datamaskinen. Her er koden:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName som strengDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA artikler \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Hvis strFileExists = "" DaMsgBox "Den valgte filen finnes ikke"EllersMsgBox "Den valgte filen finnes"Slutt omSlutt Sub |
Vi tildelte først filbanen til variabelen strFileName. Deretter bruker vi Dir funksjon for å få filnavnet inn i variabelen strFileExists. Hvis filen finnes i katalogen, blir navnet tilordnet strengvariabelen strFileExists. Hvis den ikke eksisterer da strFileExists vil forbli tom. Til slutt vises meldingsboksen som informerer oss om filen eksisterer eller ikke.
Bruk Dir -kommandoen til å sjekke om det finnes en mappe
På samme måte som å sjekke om det finnes en fil, kan du sjekke om det finnes en mappe. Du trenger bare å legge til ett argument i Dir kommando. La oss se på koden:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA artikler \ Testmappe \"strFolderExists = Dir (strFolderName, vbDirectory)Hvis strFolderExists = "" DaMsgBox "Den valgte mappen eksisterer ikke"EllersMsgBox "Den valgte mappen eksisterer"Slutt omSlutt Sub |
Vi tilordnet først mappebanen til variabelen strFolderName. Deretter bruker vi Dir funksjon for å få filnavnet inn i variabelen strFileExists. For å kontrollere en mappe, må vi legge til det andre argumentet i funksjonen - vbDirecotry. Hvis mappen finnes i katalogen, blir navnet tilordnet variabelen strFolderExists. Hvis ikke strFolderExists vil forbli tom.
