Hallo liebe Forumsnutzer,
ich prüfe mittels folgendem Makro, ob ein bestimmtes Verzeichnis auf der lokalen Festplatte vorhanden ist. Das zu prüfende Verzeichnis steht in Zelle A1.
pfad = Worksheets("Tabelle1").Cells(1, 1)
If Dir(pfad, vbDirectory) "" Then MsgBox "In A1 angegebener Pfad ist vorhanden."
If Dir(pfad, vbDirectory) = "" Then MsgBox "In A1 angegebener Pfad ist nicht vorhanden."
Das funktioniert auch soweit. Es kann allerdings auch sein, dass ein Verzeichnis nicht auf der lokalen Festplatte liegt, sondern sich auf einem NAS befindet.
Dieses Verzeichnis hat aber keinen festen Laufwerksbuchstaben, sondern der Pfad wäre dann z.B.
\\192.168.1.12\Public
Leider klappt mit meinem Makro die Abfrage dieses UNC-Pfades nicht, es gibt eine Fehlermeldung.
Hat jemand einen Tipp für mich, wie das Makro aussehen müsste ? Das Hochladen einer Beispieldatei hat in diesem Forum leider nicht geklappt, es wurde immer wegen einer ungültigen Dateiart gemeckert (obwohl ich es als ZIP sowie XLS versucht habe).
Danke für Eure Hilfe und viele Grüße
Andreas