A VBA segítségével ellenőrizheti, hogy létezik -e fájl vagy mappa a Dir funkció.
A Dir parancs használatával ellenőrizheti, hogy létezik -e fájl
Amint azt a bevezetőben említettük, a Dir funkcióval ellenőrizhetjük, hogy van -e kiválasztott fájl a számítógépen. Itt a kód:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName mint karakterláncDim strFileExists mint karakterláncstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Irány (strFileName)Ha strFileExists = "" AkkorMsgBox "A kiválasztott fájl nem létezik"MásMsgBox "A kiválasztott fájl létezik"Vége HaEnd Sub |
Először hozzárendeltük a fájl elérési útját a változóhoz strFileName. Akkor használjuk a Dir függvény, hogy a fájlnevet beírja a változóba strFileExists. Ha a fájl létezik a könyvtárban, akkor a neve hozzá lesz rendelve a string változóhoz strFileExists. Ha nem létezik, akkor strFileExists üres marad. Végül megjelenik az üzenetdoboz, amely arról tájékoztat minket, hogy létezik -e a fájl.
A Dir parancs használatával ellenőrizheti, hogy létezik -e mappa
A fájl létezésének ellenőrzéséhez hasonlóan ellenőrizheti, hogy létezik -e mappa. Csak egy érvet kell hozzáadnia a Dir parancs. Nézzük a kódot:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName Mint karakterláncDim strFolderExists Mint StringstrFolderName = "C: \ Felhasználók \ Nikola \ Desktop \ VBA cikkek \ Tesztmappa \"strFolderExists = Irány (strFolderName, vbDirectory)Ha strFolderExists = "" AkkorMsgBox "A kiválasztott mappa nem létezik"MásMsgBox "A kiválasztott mappa létezik"Vége HaEnd Sub |
Először hozzárendeltük a mappa elérési útját a változóhoz strFolderName. Akkor használjuk a Dir függvény a fájlnév beírásához a változóba strFileExists. A mappa ellenőrzéséhez hozzá kell adnunk a második argumentumot a függvényhez - vbDirecotry. Ha a mappa létezik a könyvtárban, annak neve hozzá lesz rendelve a változóhoz strFolderExists. Ha nem strFolderExists üres marad.
