[a.ahmed]

PHP كود :

Public Class Form1

    Private PDF As String = ".\PDF\\"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox6.Text = "" Then
            MessageBox.Show("لم تكتب شيئا للبحث عنه ")
            Return
        End If

        Dim fn As String = TextBox6.Text
        If Not fn.ToLower.EndsWith(".pdf") Then fn &= ".pdf"
        fn = PDF & fn
        If IO.File.Exists(fn) Then
            Process.Start(fn)
        Else
            MsgBox("Not found")
        End If

    End Sub

End Class