Herbers Excel-Forum - das Archiv

PDF-Datei und kein Ende!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: PDF-Datei und kein Ende!
von: Dieter.K

Geschrieben am: 20.03.2005 16:57:54
Hallo Forum,
Nepumuk hat mir freundlicherweise mit folgendem Code weitergeholfen:
Private Sub LblInfo001_4_Click()
Dim strPath As String, strShortPath As String, strFile As String
strFile = "VA1Info 001_4.pdf"
strPath = ThisWorkbook.Path & "\PDFZeichnungen\"
strShortPath = Space(MAX_PATH)
GetShortPathName strPath & "\" & strFile, strShortPath, MAX_PATH
ShellExecute GetActiveWindow, "open", strShortPath, "", strPath, SW_MAXIMIZE
End Sub

Meine Frage: wie kann ich eine Fehlermeldung (z.B. Userform oder MsgBox) einbauen, die angezeigt wird, wenn die gesuchte Datei nicht existiert?
z.B. If Dir(strFile) = "" then .....
Danke für Eure Hilfe.
Gruß
Dieter.K
Bild

Betrifft: AW: PDF-Datei und kein Ende!
von: Ramses
Geschrieben am: 20.03.2005 18:36:00
Hallo
nicht fragen,... machen bzw. ausprobieren :-)
If Dir(strPath & strFile) = "" Then
Msgbox("Datei ist nicht da")
Exit Sub
End If
Gruss Rainer
Bild

Betrifft: AW: PDF-Datei und kein Ende!
von: Dieter.K

Geschrieben am: 20.03.2005 19:08:24
Hallo Rainer,
wiedermal "VIELEN DANK!".
Ich hatte mir dummerweise immer wieder den selben Syntaxfehler in die Klammern gesetzt und kam einfach nicht drauf!.
Nochmals Danke
Gruß
Dieter.K
 Bild