+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده) (/showthread.php?tid=10030)
شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده) - سعود - 12-08-13
المثال المراد شرحه هنا
فيه ادوات مش ضروري نستخدمها مثل مربعات نص عرض المسار ممكن نشتغل من دونها.
اضف الادوات بالتسميات الموضحة بالصورة
prg = progressbar
bgw_purn = backgroundworker
------------------------------
الان قم باضافة قائمة الامتدادات الى اداة Cobobox
كود :
*
*.txt
*.bat
*.exe
*.368
*.dat
*.HTM
*.wmz
*.DUN
*.xml
*.INF
*.wiz
*.CHM
*.DOT
*.COM
*.SCR
*.HTA
*.ISP
*.ZIP
*.DLL
*.ini
*.pot
*.icm
*.CER
*.INS
*.swf
*.REG
*.rdw
*.PWL
*.WAV
*.HLP
*.ASF
*.BMP
*.000
*.jpg
*.gif
*.mpeg
*.map
*.sig
*.cnt
*.man
*.VER
*.ICW
*.log
*.flv
*.wmv
*.mp3
[align=center]*.wav[/align]--------------------------------
اولا استدعي ماتسمى بفضاء الاسماء
كود :
Imports System.IOثم اكتب التعريفات في منطقة التصريحات العامة
كود :
Dim cou As Integer
Dim fbd1 As New FolderBrowserDialog
Dim fbd2 As New FolderBrowserDialog
Dim all As New List(Of String)كود :
If fbd1.ShowDialog = Windows.Forms.DialogResult.OK Then
frst_folder.Text = fbd1.SelectedPath
On Error Resume Next
For Each itm In Directory.GetFiles(fbd1.SelectedPath & "\", tens.Text)
all.Add(itm)
Next
cou = all.Count
End If
prg.Minimum = 0
prg.Maximum = couشرح الكود على طريقتي:
كود :
If fbd1.ShowDialog = Windows.Forms.DialogResult.OK Thenكود :
frst_folder.Text = fbd1.SelectedPathكود :
On Error Resume Next
)كود :
For Each itm In Directory.GetFiles(fbd1.SelectedPath & "\", tens.Text) all.Add(itm)
Nextيقول لكل شيء موجود في المجلد المحدد (عبر مستعرض المجلدات) وفق امتداد محدد من الكومبوبوكس يضيفها الى القائمة النصية all المعرفة بهيدر البرنامج(ان صح التعبير)
كود :
cou = all.Countكود :
prg.Minimum = 0 prg.Maximum = couهذا تعيين الحد الادنى والاعلى لاداة الشريط prg=progressbar
والحد الاعلى هو عدد محتويات المصفوفة
-------------------
لنذهب الان الى حدث النقر للزر المسؤول عن تحديد المجلد الهدف
ونكتب به
كود :
If fbd2.ShowDialog = Windows.Forms.DialogResult.OK Then scnd_folder.Text = fbd2.SelectedPath
End Ifلننتقل الان الى زر بدء النسخ
كود :
If tens.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد الامتداد") : Exit Sub If frst_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الاصل") : Exit Sub
If scnd_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الهدف") : Exit Sub
If bgw_purn.IsBusy Then Exit Sub
prg.Value = prg.Minimum
bgw_purn.RunWorkerAsync()الشرح
كود :
If tens.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد الامتداد") : Exit Sub
If frst_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الاصل") : Exit Sub
If scnd_folder.Text.Trim.Replace(" ", "") = "" Then MsgBox("حدد المجلد الهدف") : Exit Subهذي للتحقق من ان مربعات النص ليست فارغة ولا تحتوي فراغات
كود :
If bgw_purn.IsBusy Then Exit Subان كان مشغل يخرج من الروتين
كود :
prg.Value = prg.Minimumكود :
bgw_purn.RunWorkerAsync()لننتقل الان الى bgw_purn
ضمن الحدث dowork
كود :
For Each Fi In all File.Copy(Fi, fbd2.SelectedPath & "\" & IO.Path.GetFileName(Fi), False)
ListBox1.Items.Add(Fi)
prg.Value += 1
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
Nextالشرح
كود :
For Each Fi In allكود :
File.Copy(Fi, fbd2.SelectedPath & "\" & IO.Path.GetFileName(Fi), False)كود :
io.path.getfilename(Fiممكن تحط اي مسار لو حبيت)سالفة True و False هذي للكتابة على الملف
كود :
ListBox1.Items.Add(Fi) prg.Value += 1
ListBox1.SelectedIndex = ListBox1.Items.Count - 1شغلات زيادة فقط الهاء المستخدم
السطر الاول اضافة المسار كاملا الى Listbox1
ولو حبيت فقط اسم الملف اضف
كود :
io.path.getfilename(Fi)عند حدث
RunWorkerCompleted
تكتب رسالة انه انتهى لكن هذا الحدث سيحدث سواء عمل شيئا ام لم يعمل ..يمكنك وضع شرط او قيمة ما بعد آخر كود في عملنا السابق لتبين للمستخدم هل تم النسخ ام لا
الخطوة التي لا احبذها لكنها ضرورية حتى نعرف نتحاشاها وهي ضمن حدث تحميل الفورم اكتب
كود :
Control.CheckForIllegalCrossThreadCalls = Falseارجو ان اكون قدمت لكم شيئا مفيدا
الدعاء لي والتقييم(هههههه طماع)
السلام عليكم ورحمة الله وبركاته
شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده) - ali.alfoly - 16-08-13
جزاك الله خيرا وجعله فى موازين حسناتك
فعلا رائع ومتعوب عليه
RE: شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت... - ahmedtonsy - 19-01-19
مشكور اخي عالمجهود شرح رائع
سكس مطلقات
RE: شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت... - اباذر - 06-04-19
يعطيك العافية
مجهود رائع
مودتي
RE: شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت... - أمجد وضاح - 03-09-19
اخي مايعجبني فيك حس الدعابة موضوعك رائع وتستحق ألف شكر
على مجهودك الرائع
RE: شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت... - سعود - 04-09-19
(03-09-19, 12:29 AM)أمجد وضاح كتب : اخي مايعجبني فيك حس الدعابة موضوعك رائع وتستحق ألف شكر
على مجهودك الرائع
الروعة وجود الاحبة والاخوة امثالك .
حفظك الله و بارك فيك.