VBA giver dig mulighed for at kontrollere, om der findes en fil eller mappe ved hjælp af Dir fungere.
Brug Dir -kommandoen til at kontrollere, om der findes en fil
Som vi nævnte i indledningen, den Dir funktion giver os mulighed for at kontrollere, om der findes en valgt fil på computeren. Her er koden:
123456789101112131415 | Sub CheckFileExists ()Dim strFileName som strengDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA artikler \ Testfil findes.xlsx"strFileExists = Dir (strFileName)Hvis strFileExists = "" SåMsgBox "Den valgte fil findes ikke"AndetMsgBox "Den valgte fil findes"Afslut HvisAfslut Sub |
Vi tildelte først variablen filstien strFileName. Derefter bruger vi Dir funktion for at få filnavnet ind i variablen strFileExists. Hvis filen findes i biblioteket, vil navnet blive tildelt strengvariablen strFileExists. Hvis den ikke findes så strFileExists vil forblive tom. Endelig vises meddelelsesboksen, der informerer os om filen findes eller ej.
Brug af kommandoen Dir til at kontrollere, om der findes en mappe
På samme måde som at kontrollere, om der findes en fil, kan du kontrollere, om der findes en mappe. Du skal bare tilføje et argument til Dir kommando. Lad os 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 = "" SåMsgBox "Den valgte mappe findes ikke"AndetMsgBox "Den valgte mappe findes"Afslut HvisAfslut Sub |
Vi tildelte først mappestien til variablen strFolderName. Derefter bruger vi Dir funktion for at få filnavnet ind i variablen strFileExists. For at kontrollere en mappe skal vi tilføje det andet argument til funktionen - vbDirecotry. Hvis mappen findes i biblioteket, vil navnet blive tildelt variablen strFolderExists. Hvis ikke strFolderExists vil forblive tom.