Vorhandensein des Pfades überpfüfen!
29.01.2006 14:33:29
Oswald
bräuchte wieder mal eure Hilfe.
Will mit einem Makro ein Word.doc in ein Verzeichnis speichern.
Das aus einem Vorlagen.doc erstellt wurde.
Jetzt will ich überprüfen ob das Vorlage.doc bzw. der Speicherpfad vorhanden ist.
Das überpfrüfen ob die Datei da ist klappt, aber das mit dem Pfad haut nicht hin.
Hier der Code:
~
Dim lw As String, pfad As String
lw = Left(ActiveWorkbook.Path, 1)
pfad = ActiveWorkbook.Path
If Dir(pfad & "\Angebot.doc") = "" Then MsgBox ("Es fehlt die Vorlagedatei ""Angebot.doc""!!!"): Exit Sub
If Dir(pfad) = "" Then MsgBox ("Es fehlt das speicher Verzeichnis ""Angebote""!!!"): Exit Sub
~
Bei der Prüfzeile des Pfades wird immer der Then-Befehl ausgeführt.
Kann mir jemand helfen und sagen was falsch ist.
Danke euch.
Gruß
Oswald