---

pdf_01.jpg pdf_02.jpg

Hallo Zusammen!

Ich bin gerade dabei mir ein kleines Tool zu schreiben in dem ich
folgendes realisieren möchte.
Aus einem Verzeichnis lese ich die vorhanden PDF-Dateien in eine
ComboBox ein.
Per klick auf einem Button soll die ausgewählte PDF gestartet werden.
So habe ich es bislang probiert:

Code:

---

Private Sub cmdpdf_Click()
    Dim Pfadpdf As String
    Pfadpdf = (txtbox1.Text & "\")  'Verzeichnis aus TextBox z.B.: C:\Temp
    Dim Ergebnis    'Adobe Acrobat Reader starten
    Ergebnis = Shell("C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32 Pfadpdf" & ComboBox1.Text)
End Sub

---

Acrobat startet auch, doch leider bekommen ich dann die Meldung:
Die Datei kann nicht gefunden werden.

Kann mir da jemand helfen?

Danke.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Dirk,

Probiers mal mit ShellExecute:

Code:

---

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub test()
ShellExecute 0&, vbNullString, """C:\Dokumente und Einstellungen\weca\Desktop\39914.pdf""", vbNullString, vbNullString, vbNormalFocus
End Sub

---

Da brauchst du auch den Pfad des Acrobat-Readers nicht mit angeben. Der könnte ja auch von Rechner zu Rechner anders sein, oder eine andere Version ist installiert.

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 17. Dez. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten!

Vielen Dank, funktioniert super.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Shellexecute ist soweiso in dem Fall besser, da Du dich auch nicht kümmern musst, welche Acrobat Version installiert ist (Vollversion, Reader usw.). Damit wird immer beim Starten eines Dokumentes, die damit verknüpfte Applikation gestartet.

Zum Ursprungspost
Dein fehler ist ein fehlender BackSlash

Falsch:
Ergebnis = Shell("C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32 Pfadpdf" & ComboBox1.Text)

Richtig:
Pfadpdf\" & ComboBox1.Text

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP