[jam3h]

رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم

[ميدو الفنان]

فقط استبدل كود

كود :

if vbno Then
Form2.show
Me.hide
End if

الى

كود :

if vbno Then
webbrowser1.navigate("رابط التحديث")
End if

[mrfenix93]

ممكن توضيح اكتر ايه المطلوب للاسف لم افهم قصدك

[jam3h]

رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم

[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

   

[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


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