Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Abfrage ob Ordner vorhanden
#1
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
Antwortento top
#2
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
Antwortento top
#3
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • stonemaus
Antwortento top
#4
Vielen Dank funktioniert Prima

Gruß Peter

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

Gruß Peter
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste