Med VBA kan du kontrollera om det finns en fil eller mapp med Dir fungera.
Använd kommandot Dir för att kontrollera om det finns en fil
Som vi nämnde i inledningen, Dir funktionen kan vi kontrollera om en vald fil finns på datorn. Här är koden:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName som strängDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA -artiklar \ Testfil finns.xlsx"strFileExists = Dir (strFileName)Om strFileExists = "" DåMsgBox "Den valda filen finns inte"AnnanMsgBox "Den valda filen finns"Avsluta omAvsluta Sub |
Vi tilldelade först sökvägen till variabeln strFileName. Sedan använder vi Dir funktion för att få filnamnet till variabeln strFileExists. Om filen finns i katalogen kommer namnet att tilldelas strängvariabeln strFileExists. Om det inte finns då strFileExists kommer att förbli tom. Slutligen visas meddelanderutan som informerar oss om filen finns eller inte.
Använd kommandot Dir för att kontrollera om det finns en mapp
På samma sätt som att kontrollera om det finns en fil kan du kontrollera om det finns en mapp. Du behöver bara lägga till ett argument till Dir kommando. Låt oss titta på koden:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName Som strängDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA -artiklar \ Testmapp \"strFolderExists = Dir (strFolderName, vbDirectory)Om strFolderExists = "" DåMsgBox "Den valda mappen finns inte"AnnanMsgBox "Den valda mappen finns"Avsluta omAvsluta Sub |
Vi tilldelade först variabeln mappvägen strFolderName. Sedan använder vi Dir funktion för att få filnamnet till variabeln strFileExists. För att kunna kontrollera en mapp måste vi lägga till det andra argumentet till funktionen - vbDirecotry. Om mappen finns i katalogen tilldelas dess namn till variabeln strFolderExists. Om inte strFolderExists kommer att förbli tom.
