Verzeichnis wird nicht erkannt
08.08.2016 13:44:52
r2d2
mit folgendem Code prüfe ich, ob eine Verzeichnis vorhanden ist (das debug.print ist nur zur Kontrolle):
Sub test()
Dim VERZ As String
VERZ = Sheets("test").Range("B3") & "\"
Debug.Print VERZ
If Dir(VERZ) "" Then
MsgBox "Verzeichnis is da"
Else
MsgBox "Verzeichnis is nicht da"
End If
End Sub
H:\01_FZB\_KONSOL\2016\11_PR65\014_Konsolidierung\06_Trendplanung für Zukunftspakt\Ablage Dateien\
Das wird mir mit debug.print auch angezeigt, aber lt. Abfrage ist das Verzeichnis nicht vorhanden. Woran kann es liegen?
Danke. Gruß. r2d2
