08-11-17, 09:16 PM
10-11-17, 04:54 PM
للمساعدة لو تكرمتوا
10-11-17, 05:07 PM
راجع الموضوع هذا قد يفيدك
اللينك
اللينك
10-11-17, 05:14 PM
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
11-11-17, 04:48 PM
(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
والكود لم ينجح في ذلك
11-11-17, 05:20 PM
أنت تضع الملفات في فهرس اسمه 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)
فقط عليك أن تبحث عن الملف داحل المصفوفة
يجب عليك مراعاة أن المصفوفة تعود باسم الملف شاملا المسار
11-11-17, 07:47 PM
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
11-11-17, 10:53 PM
بارك الله فيك هذا هو المطلوب
اشكرك و جزاك الله خير
اشكرك و جزاك الله خير