PDF-Datei und kein Ende!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "erster, zweiter und dritter"