Pfad aus FileOpen-Dialog ermitteln

[Olaf_Kaemper_8a5487]

Hallo Leute,
es geht um ein VBA-Skript, das den Pfad einer gewaehlten Datei ermittelt.
Das Makro ist eingentlich ganz einfach:

With Dialogs(wdDialogFileOpen)
  .Display 'Dialog anzeigen
  antwort = .Name 'Name der Datei
End with

Leider wird bei .Name wirklich nur der Dateiname ausgegeben.
Wer weiss, wie ich auch den kompletten Pfad der im Dialogfeld ausgewaehlten Datei ermitteln kann.
Ich habe schon .pfad oder .path oder .directory ausprobiert…geht nicht

HILFE!! Ich brauche diese Info ganz dringend!!

Olaf (verzweifelt)

[J_rg_Lorenz]

Hallo Olaf,

versuch’s mal damit:

Dim DF As Object, Antwort$
Set DF = Dialogs(wdDialogFileOpen)
DF.Display
Antwort = CurDir & „“ & DF.Name
If Mid(Antwort, 4, 1) = „“ Then Antwort = Left(Antwort, 3) & Right(Antwort, Len(Antwort) - 4)
If Right(Antwort, 1) = „“ Then
MsgBox „Abgebrochen“
Else
MsgBox Antwort
End If
Set DF = Nothing

Viele Grüße

Jörg