PDF-Datei und kein Ende!
20.03.2005 16:57:54
Dieter.K
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
Anzeige