[jam3h]

(10-11-21, 02:54 PM)Anas Mahmoud كتب : تفضل 

كود :

       Dim dir As String = TextBox1.Text
       If Directory.Exists(dir) = False Then
           MsgBox("عنوان غير صالح")
           Exit Sub
       End If
       Dim SearchPattern As String = TextBox2.Text
       Dim paths As String() = Directory.GetFiles(dir, SearchPattern, SearchOption.AllDirectories)
       ListBox1.DataSource = paths


اريد بحث عن ملفات اكسل داخل كمبيوتر  واستطيع فتح ملف داخل فورا يعني يبحث عن اسم فاتورة واستطيع فتحها