Met VBA kunt u controleren of een bestand of map bestaat met behulp van de Dir functie.
Het Dir-commando gebruiken om te controleren of een bestand bestaat
Zoals we in de inleiding al zeiden, Dir functie stelt ons in staat om te controleren of een geselecteerd bestand op de computer bestaat. Hier is de code:
| 123456789101112131415 | Sub CheckFileExists ()Dim strBestandsnaam As StringDim strFileExists As StringstrFileName = "C:\Users\Nikola\Desktop\VBA-artikelen\Testbestand bestaat.xlsx"strFileExists = Dir(strFileName)If strFileExists = "" DanMsgBox "Het geselecteerde bestand bestaat niet"AndersMsgBox "Het geselecteerde bestand bestaat"Stop alsEinde sub |
We hebben eerst het bestandspad toegewezen aan de variabele strBestandsnaam. Dan gebruiken we de Dir functie om de bestandsnaam in de variabele te krijgen strFileExists. Als het bestand in de map bestaat, wordt de naam toegewezen aan de tekenreeksvariabele strFileExists. Als het niet bestaat dan strFileExists blijft leeg. Ten slotte verschijnt het berichtvenster om ons te informeren of het bestand bestaat of niet.
Het Dir-commando gebruiken om te controleren of een map bestaat
Net als bij het controleren of een bestand bestaat, kunt u controleren of een map bestaat. U hoeft slechts één argument toe te voegen aan de Dir opdracht. Laten we naar de code kijken:
| 123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C:\Users\Nikola\Desktop\VBA-artikelen\Testmap\"strFolderExists = Dir(strFolderName, vbDirectory)If strFolderExists = "" DanMsgBox "De geselecteerde map bestaat niet"AndersMsgBox "De geselecteerde map bestaat"Stop alsEinde sub |
We hebben eerst het mappad toegewezen aan de variabele strMapNaam. Dan gebruiken we de Dir functie om de bestandsnaam in de variabele te krijgen strFileExists. Om een map te controleren, moeten we het tweede argument aan de functie toevoegen - vbDirecotry. Als de map in de map bestaat, wordt de naam toegewezen aan de variabele strFolderExists. Als niet strFolderExists blijft leeg.
