[أبووسم]

السلام عليكم و رحمة الله وبركاته

تجدون في المرفقات برنامج ارجوا التعديل عليه ليبحث

---

رفعت الملف اكثر من مرة لم تنجح العملية

[أبووسم]

للمساعدة لو تكرمتوا

[silverlight]

راجع الموضوع هذا قد يفيدك
اللينك

[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 


      Updated

[أبووسم]

(10-11-17, 05:14 PM)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

        If Not TextBox6.Text.ToLower.EndsWith(".pdf") Then TextBox6.Text &= ".pdf"
        If IO.File.Exists(PDF & TextBox6.Text) Then
            MsgBox("Exist")
        Else
            MsgBox("Not found")
        End If

    End Sub

End Class 


اشكرك اخي الكريم على الجهد ، ولكن أريده أن يفتح لي ملف الـPDF
والكود لم ينجح في ذلك

[silverlight]

أنت تضع الملفات في فهرس اسمه PDF تحت فهرس المشروع
يمكنك استخدام الدالة التالية للحصول علي الملفات الموجودة تحت الفهرس

PHP كود :

  Private Function SearchFiles(folderName As String, pattern As String, recursive As Boolean, ignoreEx As Boolean) As List(Of String)
        Dim result As List(Of String) = New List(Of String)()
        Dim actionParams As Action(Of List(Of String), String, String, Boolean, Boolean)
        actionParams = Sub(list, folder, searchPattern, repeatSearch, ignore)
                           Try
                               Dim fileNames As String() = Nothing
                               If searchPattern IsNot Nothing Then
                                   fileNames = IO.Directory.GetFiles(folder, searchPattern)
                               Else
                                   fileNames = IO.Directory.GetFiles(folder)
                               End If
                               list.AddRange(fileNames)
                           Catch ex As Exception
                               If Not ignore Then
                                   Throw
                               End If
                           End Try
                           If repeatSearch Then
                               Dim folders As String() = IO.Directory.GetDirectories(folder)
                               For i As Integer = 0 To folders.Length - 1
                                   actionParams(list, folders(i), searchPattern, repeatSearch, ignore)
                               Next
                           End If
                       End Sub

        actionParams(result, folderName, pattern, recursive, ignoreEx)
        Return result
    End Function 


ثم و للحصول علي كل الملفات في مصفوفة تستخدم الكود بالشكل التالي

PHP كود :

      Dim path As String = Application.StartupPath + "\PDF"
        Dim files As List(Of String) = SearchFiles(path, "*.pdf", False, False) 


فقط عليك أن تبحث عن الملف داحل المصفوفة
يجب عليك مراعاة أن المصفوفة تعود باسم الملف شاملا المسار

[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 


[أبووسم]

بارك الله فيك هذا هو المطلوب

اشكرك و جزاك الله خير