Datei im Laufwerk vorhanden!
07.05.2008 14:22:44
Detlef
mit dem untenstehenen Code öffne ich eine PDF-Datei von meinem Excel-Formular aus.
Funktioniert soweit! Wenn jetzt sollte ich den Code noch ergänzen, wenn eine Datei im Verzeichnis "C:Dateien\" nicht vorhanden ist, das eine Meldung am Bildschirm erscheint "Msgbox" die Datei ist nicht vorhanden! Hat jemand eine Idee?
Gruß Detlef
Private Sub Button_PDF_oeffnen_Click() 'PDF-öffnen'
Dim strPhad As String
Dim strPDF As String
Dim Datname As String
Dim strkomplett As String
strPhad = "C:Dateien\"
strPDF = Me.Fabriknr & ".PDF"
strkomplett = strPhad & strPDF
Datname = "C:\Programme\Adobe\Acrobat Reader 7.0\Reader\AcroRd32.exe " & Chr$(34) & _
strkomplett & Chr$(34)
Call Shell(Datname, vbNormalFocus)
End Sub
Anzeige