Abfrage ob Ordner vorhanden

[stonemaus]

Hallo und Guten Tag

Ich versuche seit Stunden eine Abfrage zu realisieren ob der Ordner vorhanden ist oder nicht.
Leider ohne Erforg, ich bitte um Eure Hilfe.
Der Ordnerpfad steht in einer Zelle in der Aktiven Arbeitsmappe.

Code:

Dim Pfadname As String
Pfadname = Workbooks("Personal.xlsb").Sheets("Hilfstabelle").Range("O1").Value
If Dir(Pfadname, vbDirectory) = Pfadname Then
Else
        MsgBox ("Das im Tabellenblatt"" Hilfstabelle ""angegebene Verzeichnis ist nicht vorhanden")
        Exit Sub
    End If

In der Zelle O1 steht der Pfad U:\Dokumente\Stephan\Ablage\

Danke schon mal im Voraus

Gruß Peter

[UweD]

Hallo

mach es so...

Code:

    If Dir(Pfadname, vbDirectory) <> "" Then
    Else
        MsgBox ("Das im Tabellenblatt"" Hilfstabelle ""angegebene Verzeichnis ist nicht vorhanden")
        Exit Sub
    End If

LG UweD

[Kuwer]

Hallo Peter,

teste es mal so:

Dim Pfadname As String

Pfadname = Workbooks("Personal.xlsb").Sheets("Hilfstabelle").Range("O1").Value

If Right(Pfadname, 1) = "\" Then

  Pfadname = Left(Pfadname, Len(Pfadname) - 1)

End If

If Dir(Pfadname, vbDirectory) = "" Then

  MsgBox "Das im Tabellenblatt"" Hilfstabelle ""angegebene Verzeichnis ist nicht vorhanden"

End If

Gruß Uwe

[stonemaus]

Vielen Dank funktioniert Prima

Gruß Peter

---

Dankeschön, beide Antworten funktionieren um kommen in meine Sammlung

Gruß Peter