VBA vám umožňuje zkontrolovat, zda soubor nebo složka existuje, pomocí Dir funkce.
Pomocí příkazu Dir zkontrolujte, zda soubor existuje
Jak jsme zmínili v úvodu, Dir funkce nám umožňuje zkontrolovat, zda vybraný soubor v počítači existuje. Zde je kód:
123456789101112131415 | Sub CheckFileExists ()Dim strFileName jako řetězecDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA články \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Pokud strFileExists = "" PotomMsgBox "Vybraný soubor neexistuje"JinýMsgBox "Vybraný soubor existuje"Konec IfEnd Sub |
Nejprve jsme proměnné přiřadili cestu k souboru strFileName. Poté použijeme Dir funkce pro získání názvu souboru do proměnné strFileExists. Pokud soubor v adresáři existuje, bude jeho název přiřazen proměnné řetězce strFileExists. Pokud neexistuje, pak strFileExists zůstane prázdné. Nakonec se zobrazí okno se zprávou, které nás informuje, zda soubor existuje nebo ne.
Pomocí příkazu Dir zkontrolujte, zda existuje složka
Podobně jako při kontrole, zda soubor existuje, můžete zkontrolovat, zda existuje složka. Stačí přidat jeden argument do souboru Dir příkaz. Podívejme se na kód:
123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName jako řetězecDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Pokud strFolderExists = "" PotomMsgBox "Vybraná složka neexistuje"JinýMsgBox "Vybraná složka existuje"Konec IfEnd Sub |
Nejprve jsme proměnné přiřadili cestu ke složce strFolderName. Poté použijeme Dir funkce pro získání názvu souboru do proměnné strFileExists. Abychom mohli zkontrolovat složku, musíme do funkce přidat druhý argument - vbDirecotry. Pokud složka v adresáři existuje, bude její název přiřazen proměnné strFolderExists. Pokud ne strFolderExists zůstane prázdné.