Kodlardaki MsgBox Düzenlemesi Hakkında.

[yesimgurol]

Merhabalar;
Aşağıdaki kodlarda belirlediğim klasörden Textbox 1 değerine göre arama yaptırıp,bulunan .pdf dosyasını açtırmaktayım. Örneklerden bakarak yaptığım kodlarda msgbox uyarısının dosyayı bulamadığında çıkmasını istiyorum fakat dosya bulunup açılsada yine uyarı çıkıyor.Sadece dosyanın bulunamadığı durumlarda uyarı mesajı çıkması için küçük bir dokunuş gerekiyor sanırım...

Private Sub CommandButton6_Click()

Y = "C:\Users\usr\Desktop\o"
D = Dir("D:\eee" & "\*.pdf")
While D <> ""
D = Dir
Wend
Set s = CreateObject("Shell.Application")
s.Open Y & "\" & TextBox1.Text & ".pdf"
On Error GoTo yok
s.Open Y & "\" & TextBox1.Text & ".pdf"
yok:
MsgBox "Aradığınız dosya Mevcut değil."
Set s = Nothing
End Sub

 

[halit3]

kod:

Private Sub CommandButton6_Click()

dosya = "C:\Users\usr\Desktop\o\" & TextBox1.Text & ".pdf"
If CreateObject("Scripting.FileSystemObject").FileExists(dosya) = True Then
CreateObject("Shell.Application").Open dosya
Else
MsgBox "Aradığınız dosya Mevcut değil."
End If
End Sub

 

[yesimgurol]

Tamamdır,Halit Bey,teşekkür ederim.İyi çalışmalar.

 

[halit3]

Tamamdır,Halit Bey,teşekkür ederim.İyi çalışmalar.

Teşekkürler iyi çalışmalar