Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

PDF-Datei und kein Ende!

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF-Datei und kein Ende!
20.03.2005 18:36:00
Ramses
Hallo
nicht fragen,... machen bzw. ausprobieren :-)
If Dir(strPath & strFile) = "" Then
Msgbox("Datei ist nicht da")
Exit Sub
End If
Gruss Rainer
AW: PDF-Datei und kein Ende!
20.03.2005 19:08:24
Dieter.K
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige