Listbox Üzerinden Pdf Görüntüleme

[fledermaus]

Herkese Merhabalar,

Aşağıda oluşturulmuş olan kod ile listbox da nesnelerini aynı klasörde olmak kaydı ile görüntüleyebiliyoruz.

Ancak kullanılan dosya ile pdf dosyaları aynı klasör içinde olmalı.

Bu dosyaları farklı bir klasörde tutmak ve oradan çekerek görüntülemek istersem kodu nasıl değiştirmeliyim ?

Yardımları için herkese şimdiden teşekkür eder, iyi çalışmalar dilerim.

Syg,

If ListBox1.ListIndex < 0 Then
MsgBox "Listeden seçim yapılmalı!"
Exit Sub
End If
On Error GoTo hata
aranan = ListBox1.List(ListBox1.ListIndex, 9)

DosyaYol = ThisWorkbook.Path & "\" & aranan & ".pdf"
ActiveWorkbook.FollowHyperlink DosyaYol
Exit Sub
hata:
MsgBox "Aranan Dosya bulunamadı"

 

[Zeki Gürsoy]

Listbox'a nasıl aldığınızı bilmiyoruz ancak, ThisWorkbook.Path olan kısmı değiştirmeniz gerekiyor gibi...

.