VBA omogoča preverjanje, ali datoteka ali mapa obstaja z uporabo Dir funkcijo.
Z ukazom Dir preverite, ali datoteka obstaja
Kot smo omenili v uvodu, je Dir funkcija nam omogoča, da preverimo, ali izbrana datoteka obstaja v računalniku. Tukaj je koda:
| 123456789101112131415 | Sub CheckFileExists ()Zatemni strFileName kot nizDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA članki \ Testna datoteka obstaja.xlsx"strFileExists = Dir (strFileName)Če strFileExists = "" PotemMsgBox "Izbrana datoteka ne obstaja"Sicer paMsgBox "Izbrana datoteka obstaja"Konec ČeEnd Sub |
Najprej smo spremenljivki dodelili pot do datoteke strFileName. Nato uporabimo Dir funkcijo za vnos imena datoteke v spremenljivko strFileExists. Če datoteka obstaja v imeniku, bo njeno ime dodeljeno spremenljivki niza strFileExists. Če potem ne obstaja strFileExists bo ostalo prazno. Končno se prikaže okno s sporočilom, ki nas obvesti, ali datoteka obstaja ali ne.
Z ukazom Dir preverite, ali mapa obstaja
Podobno kot pri preverjanju, ali datoteka obstaja, lahko preverite, ali mapa obstaja. Dodati morate le en argument Dir ukaz. Poglejmo kodo:
| 123456789101112131415 | Sub CheckFolderExists ()Zatemni strFolderName kot nizZatemni strFolderExists As StringstrFolderName = "C: \ Uporabniki \ Nikola \ Namizje \ VBA članki \ Testna mapa \"strFolderExists = Dir (strFolderName, vbDirectory)Če strFolderExists = "" PotemMsgBox "Izbrana mapa ne obstaja"Sicer paMsgBox "Izbrana mapa obstaja"Konec ČeEnd Sub |
Najprej smo spremenljivki dodelili pot mape strFolderName. Nato uporabimo Dir funkcijo za vnos imena datoteke v spremenljivko strFileExists. Če želimo preveriti mapo, moramo funkciji dodati drugi argument - vbDirecotry. Če mapa obstaja v imeniku, bo njeno ime dodeljeno spremenljivki strFolderExists. Če ne strFolderExists bo ostalo prazno.
