+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم (/showthread.php?tid=39942)
رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم - jam3h - 09-11-21
رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم
RE: رجاء اريد كود كامل من يجبر عضو على تحديث برنامج - ميدو الفنان - 10-11-21
فقط استبدل كود
كود :
if vbno Then
Form2.show
Me.hide
End ifالى
كود :
if vbno Then
webbrowser1.navigate("رابط التحديث")
End ifRE: رجاء اريد كود كامل من يجبر عضو على تحديث برنامج - mrfenix93 - 10-11-21
ممكن توضيح اكتر ايه المطلوب للاسف لم افهم قصدك
RE: رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم - jam3h - 10-11-21
رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم
RE: رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم - Anas Mahmoud - 10-11-21
تفضل
كود :
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 = pathsRE: رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم - jam3h - 06-07-22
(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
اريد بحث عن ملفات اكسل داخل كمبيوتر واستطيع فتح ملف داخل فورا يعني يبحث عن اسم فاتورة واستطيع فتحها