AccessTr.neT

Merhaba
Userformda textbox1 üzerinde görüntülenen dosya yolunda kayıtlı PDF dosyasının butona tıklandığında mümkünse bilgisayarın tarayıcısında(Microsoft Edge buna olanak sağlıyor ama diğer tarayıcılar bu işlemi destekliyormu bilmiyorum ) değilse bilgisayarda yüklü olan PDF editöründe açılmasını nasıl sağlayabilirim.

CreateObject("Shell.Application").Open(TextBox1.Value)

yada

Shell "explorer.exe " & TextBox1.Value

kodlarını dener misiniz?

Aşağıdaki kod bilgisayarda Acrobat Reader var ise dosyanızı Acrobat ile yoksa pdf dosyaları ile ilişkilendirilmiş default uygulama ile açar.

On Error GoTo DefApp

Dim SPath As String

SPath = "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe" & " " & TextBox1.Value

Shell (SPath)

DefApp:

CreateObject("Shell.Application").Open (TextBox1.Value)

End Sub

(27/05/2022, 22:40)berduş yazdı: [ -> ]

CreateObject("Shell.Application").Open(TextBox1.Value)

yada

Shell "explorer.exe " & TextBox1.Value

kodlarını dener misiniz?

@berduş Hocam her iki kod da Adobe Acrobat reader da açtı. Tarayıcıda da açanı bulursam her iki kodu da kullanacağım.

yazılan kodların mantığı doğru değil mi?
kullanıcı pdf/rar/doc dosyasını açmak için hangi programı kullanıyorsa, belgeyi yada dosyayı o programda açması daha mantıklı olmaz mı?

(28/05/2022, 00:03)berduş yazdı: [ -> ]yazılan kodların mantığı doğru değil mi?
kullanıcı pdf/rar/doc dosyasını açmak için hangi programı kullanıyorsa, belgeyi yada dosyayı o programda açması daha mantıklı olmaz mı?

Evet tabiki mantıklısı bu ama bazen insanların PDF editörü bilmediklerini farzederek pdf editör yüklü değilse onu yikleme zahmetinden kuratarıp zaten Windows10 da default olarak gelen Edge tarayıcıda açılabilir fantezim vardı. Bu kadarıda bana yetiyor. Çok teşekkür ederim. Edge ile de açabilseydim o da tatlının kreması olacaktı. Çok çok teşekkürler.