Kategorien
CodeArchiv Dateien VBA

VBA Prüfen ob ein Verzeichnis existiert, wenn nicht anlegen!

Beschreibung

Werden öfters Dateien gespeichert und die Verzeichnisse sind unterschiedlich oder teilweise nicht vorhanden, kommt man mit dem Befehl MKDIR bei Netzwerkfreigaben nicht unbedingt weiter (UNC Pfad). Daher kann man die nachfolgende Funktion benutzen. Diese legt die Verzeichnisse bei nicht vorhanden sein an.

Parameter

Parameter Name Parameter Wert
lpPath Pfad der überprüft werden soll

Code

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Download