Controleren of een bestand bestaat met vba (met voorbeeld)

U kunt de Dir- functie in VBA gebruiken om te controleren of een specifiek bestand in een specifieke map bestaat.

Hier is een gebruikelijke manier om deze verklaring in de praktijk te gebruiken:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Deze specifieke macro creëert een invoervak waarin de gebruiker een volledig pad naar een bestand kan invoeren om te controleren of het bestaat.

Zodra de gebruiker het bestandspad invoert, produceert de macro een berichtvenster waarin wordt aangegeven of het bestand bestaat of niet.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Controleer of het bestand bestaat met VBA

Stel dat we een map hebben op de volgende locatie:

C:\Gebruikers\bob\Documenten\huidige_data

Deze map bevat drie CSV-bestanden:

Laten we zeggen dat we VBA willen gebruiken om te controleren of er een bestand met de naam voetbal_data.csv in deze map bestaat.

We kunnen hiervoor de volgende macro maken:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Zodra we deze macro uitvoeren, verschijnt er een invoervak waarin we het bestandspad kunnen invoeren:

We voeren het volledige pad van het bestand voetbal_data.csv in:

Zodra we op OK klikken, verschijnt er een berichtvenster waarin staat of het bestand bestaat in de map die we hebben opgegeven:

Het berichtvenster vertelt ons dat het bestand bestaat.

Opmerking : u kunt de volledige documentatie voor de Dir- functie hier vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Mappen maken met VBA
Hoe mappen te verwijderen met VBA
Hoe bestanden te verwijderen met VBA