VBA leidžia patikrinti, ar yra failas ar aplankas, naudojant Rež funkcija.
„Dir“ komandos naudojimas, norint patikrinti, ar yra failas
Kaip minėjome įvade, Rež funkcija leidžia patikrinti, ar kompiuteryje yra pasirinktas failas. Čia yra kodas:
| 123456789101112131415 | Sub CheckFileExists ()Dim strFileName kaip eilutėDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Jei strFileExists = "" TadaMsgBox „Pasirinkto failo nėra“Kitas„MsgBox“ „Pasirinktas failas egzistuoja“Pabaiga JeiPabaiga Sub |
Pirmiausia kintamajam priskyrėme failo kelią strFileName. Tada mes naudojame Rež funkcija, kad failo pavadinimas būtų įtrauktas į kintamąjį strFileExists. Jei failas yra kataloge, jo pavadinimas bus priskirtas eilutės kintamajam strFileExists. Jei jo nėra, tada strFileExists liks tuščias. Galiausiai pasirodo pranešimų langas, informuojantis mus, ar failas yra, ar ne.
„Dir“ komandos naudojimas, norint patikrinti, ar yra aplankas
Panašiai kaip tikrinant, ar yra failas, galite patikrinti, ar yra aplankas. Jums tiesiog reikia pridėti vieną argumentą prie Rež komandą. Pažvelkime į kodą:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Vartotojai \ Nikola \ Desktop \ VBA straipsniai \ Bandymo aplankas \"strFolderExists = Dir (strFolderName, vbDirectory)Jei strFolderExists = "" TadaMsgBox „Pasirinkto aplanko nėra“Kitas„MsgBox“ Pasirinktas aplankas egzistuojaPabaiga JeiPabaiga Sub |
Pirmiausia kintamajam priskyrėme aplanko kelią strFolderName. Tada mes naudojame Rež funkcija, kad failo pavadinimas būtų įtrauktas į kintamąjį strFileExists. Norėdami patikrinti aplanką, prie funkcijos turime pridėti antrą argumentą - vbDirecotry. Jei kataloge yra katalogas, jo pavadinimas bus priskirtas kintamajam strFolderExists. Jei ne strFolderExists liks tuščias.
