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

Einleitung

Falls wir überprüüberprüfen mömöchten, ob ein bestimmtes Verzeichnis vorhanden ist, kökönnen wir das nachstehende Code-Konstrukt verwenden. Dieses gibt dann einen boolean Wert zurü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