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

Einleitung

Falls wir überprüfen möchten, ob ein bestimmtes Verzeichnis vorhanden ist, können wir das nachstehende Code-Konstrukt verwenden. Dieses gibt dann einen boolean Wert zurück, ob der Pfad vorhanden ist, oder nicht.

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