VBA võimaldab teil faili või kausta olemasolu kasutades kontrollida Rež funktsiooni.
Faili olemasolu kontrollimiseks käsu Dir kasutamine
Nagu sissejuhatuses mainisime, on Rež funktsioon võimaldab meil kontrollida, kas arvutis on valitud fail olemas. Siin on kood:
123456789101112131415 | Sub CheckFileExists ()Dim strFileName kui stringDim strFileExists nagu stringstrFileName = "C: \ Kasutajad \ Nikola \ Töölaud \ VBA artiklid \ Testfail on olemas. xlsx"strFileExists = Juht (strFileName)Kui strFileExists = "" SiisMsgBox "Valitud faili pole olemas"MuiduMsgBox "Valitud fail on olemas"Lõpp KuiEnd Sub |
Esmalt määrasime muutujale faili tee strFileName. Siis kasutame Rež funktsiooni, et faili nimi muutuja sisse viia strFileExists. Kui fail on kataloogis olemas, määratakse selle nimi stringimuutujale strFileExists. Kui seda pole siis strFileExists jääb tühjaks. Lõpuks ilmub sõnumikast, mis teavitab meid, kas fail on olemas või mitte.
Dir -käsu kasutamine kausta olemasolu kontrollimiseks
Sarnaselt faili olemasolu kontrollimisega saate kontrollida kausta olemasolu. Peate lihtsalt lisama argumendile Rež käsk. Vaatame koodi:
123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName kui stringDim strFolderExists as StringstrFolderName = "C: \ Kasutajad \ Nikola \ Töölaud \ VBA artiklid \ Testkaust \"strFolderExists = Juht (strFolderName, vbDirectory)Kui strFolderExists = "" SiisMsgBox "Valitud kausta pole olemas"MuiduMsgBox "Valitud kaust on olemas"Lõpp KuiEnd Sub |
Esmalt määrasime muutujale kausta tee strFolderName. Siis kasutame Rež funktsiooni, et faili nimi muutuja sisse viia strFileExists. Kausta kontrollimiseks peame lisama funktsioonile teise argumendi - vbDirecotry. Kui kataloog on kataloogis olemas, määratakse selle nimi muutujale strFolderExists. Kui ei strFolderExists jääb tühjaks.