10-11-17, 05:14 PM (آخر تعديل لهذه المشاركة : 11-11-17, 07:48 PM {2} بواسطة 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
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
والكود لم ينجح في ذلك
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
11-11-17, 05:20 PM (آخر تعديل لهذه المشاركة : 11-11-17, 05:21 PM {2} بواسطة 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)
فقط عليك أن تبحث عن الملف داحل المصفوفة
يجب عليك مراعاة أن المصفوفة تعود باسم الملف شاملا المسار
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