Überprüfung ob Ordner / Datei vorhanden ist (VBA)

In diesem Artikel findest du den VBA-Code um zu überprüfen, ob ein Ordner oder eine Datei auf dem System vorhanden ist. So können wir ggf. unerwünschte Fehler vermeiden.

Code Ordner

Sub checkPath
	Dim path = "C:\Users\test\Desktop\"
    if CreateObject("Scripting.FileSystemObject").FolderExists(path) Then
    	' Ordner ist vorhanden
    else
        ' Ordner ist nicht vorhanden!
    end if
End Sub

Code Datei

Sub checkPath
	Dim path = "C:\Users\test\Desktop\"
  	if CreateObject("Scripting.FileSystemObject").FileExists(path) Then
    	' Datei ist vorhanden
    else
    	' Datei ist nicht vorhanden!
    end if
End Sub