ich bin am Verzweifeln und hoffe auf Eure Hilfe.Möchte per VBA überprüfen, ob eine bestimmte Datei vorhanden ist, wenn nicht, dann soll überprüft werden, ob zwei bestimmte Ordner vorhanden sind. Ist das nicht der Fall sollen diese ggf. angelegt werden. Eigentlich kein Problem, so dachte ich. Habe hier eine Weile gesucht und auch was gefunden...aber es funzt nicht und ich weiss nicht, warum. Die Überprüfung, ob die Datei vorhanden ist klappt tadellos, aber bei den Ordnern, das haut irgendwie nicht hin. Ergebnis ist (wenn vorhanden) "leer", was er mit "" gleichsetzt. Kann mir wer sagen, wo mein Denkfehler ist? Hier der Code:
Dim pfad_p$
Dim pfad_d$
Dim pfad_dp$
pfad_p = Dir("H:\Datenbanken\Personendaten\persoenliche_daten.xls")
pfad_d = Dir("H:\Datenbanken\")
pfad_dp = Dir("H:\Datenbanken\Personendaten\")
If pfad_p = "" Then
If pfd_d = "" Then
MkDir ("H:\Datenbanken")
End If
If pfad_dp = "" Then
MkDir ("H:\Datenbanken\Personendaten")
End If
End if