السلام عليكم , إذيكم يا جماعه

فى الموضوع ده هنتكلم على العلميات على الملفات "Files"
و العمليات هنا الى هى ذى نسخ و نقل و حذف الملفات و غيرها من العمليات المتعلقه بالملفات


* هذا الموضوع خاص بـ VB 6

نبدأ على بركه الله

سنحتاج أولا مجلد إسمه Project فى الدرايف C



و نقوم بعمل ملف A.txt داخله





و تصميم Form تحتوى على ثلاثه من أزرار الأوامر , أى بهذا الشكل




يتبـع>>>>>

نسخ ملف

عند عمل نسخه من الملف , تترك الملف المراد نسخه و تقوم بعمل نسخه مطابقه له , و هذا يتم فى الـ VB عن طريق FileCopy

و التى تكتب بهذه الطريقه :

FileCopy Source, Destination

و هناك طريقتان لكتابتها , و أنا أفضل الأولى "هتحكموا بنفسكم :shutup00: "

1 - أن يتم كتابه مسار الملف كاملا و إسمه كالتالى :

Private Sub Command1_Click()
FileCopy "C:\Project\A.txt", "D:\B.txt"
End Sub

و هذا الكود السابق يعنى عند الضغط على الزر Command1 يقوم الويندوز بالبحث عن الملف A.txt الموجود فى المسار C:\Project و إذا وجده ينسخه إلى المسار D:\ بالإسم B.txt

2 - أن تكتفى بإسم الملف فقط كالتالى :

Private Sub Command2_Click()
FileCopy "A.txt", "B.txt"
End Sub

عموما يحتفظ الويندوز بشئ يدعى Current Drive و Current Directory

و ما يحدث فى الكود السابق عند الضغط على الزر Command2 يقوم الويندوز يبحث عن ملف يدعى A.txt فى Current Drive و Current Directory و إذا وجده ينسخه إلى Current Drive و Current Directory بالإسم B.txt

فمثلا إذا كان Current Drive هو الـ C و Current Directory هو r\Program Files\Microsoft Visual Studio\VB98

فما يحدث أن يبحث البرنامج عن الملف A.txt فى المسار C:\Program Files\Microsoft Visual Studio\VB98 و إذا وجده ينسخه إلى نفس المسار بالإسم B.txt

و يمكننا تغيير Current Drive و Current Directory

و يمكننا رؤية ذلك فى الكود التالى :

Private Sub Command3_Click()
ChDrive ("C")
ChDir "\Project"
Print CurDir
End Sub

و ما يحدث فى الكود السابق أنه عند الضغط على Command3 يتم تغيير Current Drive إلى C و تغيير Current Directory إلى r\Project و من ثم يكون المسار كاملا C:\Project و الذى يتم طباعته على الـ Form

كما نرى فالطريقه الأولى أسهل بكثير و هى المفضله عامه

و أيضا يمكننا إستبدال إسم الملف بمتغير يحتوى على إسم الملف , و أظن أنه يمكنكم إستيعابها بسهوله من الكود التالى

Private Sub Command1_Click()
Dim X As String
X = "C:\Project\A.txt"
FileCopy X, "D:\B.txt"
End Sub

******************************************
التأكد من وجود ملف

للتأكد من وجود ملف ما نستعمل الداله Dir$g

و التى تكتب بهذه الطريقه :

X = Dir$(PathName)r

حيث PathName هنا هو إسم الملف (يمكن كتابته بإحدى الطريقتين كما فعنا فى FileCopy و لك حريه الإختيار فى الطريقه و لكن الأفضل الأولى)

و X هنا هو متغير أيا كان إسمه ( لا يشترط أن يكون X بالتأكيد ) , و تقوم الداله هنا بالبحث عن الملف الذى قمت بتحديده , ثم تعود بقيمه من إثنين , فلو كان الملف غير موجود تصبح X فى هذه الحاله فارغه , و إذا كان موجودا تصبح قيمه X هو إسم الملف (إسمه فقط ليس المسار كاملا ً)
يمكننا الآن تصميم برنامج تطبيقا على ما تعلمناه فى نسخ الملفات , و التأكد من وجوداها , كالتالى :

Private Sub Command1_Click()
FileCopy "C:\Project\A.txt", "C:\B.txt"
End Sub

Private Sub Command2_Click()
X = Dir$("C:\B.txt")
If X = "" Then MsgBox ("The File B.txt is not exist")
If X = "B.txt" Then MsgBox ("The File B.txt was foud")
End Sub

فى هذا البرنامج عند الضغط على الزر Command1 يقوم البرنامج بنسخ الملف A.txt الموجود فى C:\Project إلى المسار C:\r بالإسم B.txt

و يقوم الزر Command2 بالتحقق من وجود الملف B.txt فى المسار C:\r , و إذا وجده يظهر رسالة نصها The File B.txt was foud , و إذا لم يجده يظهر رساله نصها The File B.txt is not exist

الآن عند الضغط على الزر Command2 فى بادئ الأمر تظهر رسالة تفيد بأن الملف غير موجود
ثم عند الضغط على الزر Command1 ثم Command2 تظهر رسالة تفيد بوجود الملف

يتبع >>

إعادة تسمية ملف

لإعادة تسميه ملف نستخدم Name
و التى تكتب بهذه الطريقة

Name OldPathName As NewPathName

و كما تعلمنا سابقاً , فالمسارين OldPathName و NewPathName يمكن كتابتهم بإحدى الطريقتين إما المسار كاملاً أو إسم الملف فقط , و يفضل المسار كاملاً كما قلنا من قبل (راجع نسخ ملف)

و كمثال على إعاده تسمية الملف

Private Sub Command1_Click()
Name "C:\B.txt" As "C:\modyyy55.txt"
End Sub

فى الكود السابق عند الضغط على الزر Command1 يبحث نظام التشغيل عن الملف B.txt فى المسار C:\r (الذى قمنا بنسخه إليه فى المثال السابق) و يعيد تسميته إلى modyyy55.txt

******************************************
نقل ملف

قصدت وضع "نقل ملف" مباشرة بعد "إعادة تسميه ملف" لأن فى الكود السابق هناك سؤال تبادر لأذهان معظمكم :

ماذا يحدث إذا قمنا فى المثال بدلاً من كتابه C:\modyyy55.txt كتبنا C:\Project\modyyy55.txt ؟ :49_49:

بالطبع كما أجبت سيتم نقل الملف B.txt من المسار C:\r إلى المسار C:\Project بالإسم modyyy55.txt :wink:

دعونا نكتب كودا جديدا يستمر على ما فعلناه سابقا :

Private Sub Command1_Click()
Name "C:\modyyy55.txt" As "C:\Project\B.txt"
End Sub

يقوم الكود السابق بنقل الملف modyyy55.txt من المسار C:\r إلى المسار C:\Project بالإسم B.txt

يتبع >>

حذف ملف

الأمر الذى نحن بصدده الآن من أكثر الأوامر خطورة :shutup00: , فما فعلناه سابقا هو نسخ ملفات و نقلها و إعاده تسميتها , إنما الأمر التالى خطير جدا حيث أنه يقوم بحذف الملف نهائيا , أى لا يمكنك الضغط على Ctrl+Z ليعود إليك :no000000: , أو تقوم بالبحث عنه فى Recycle Bin لتسترجعه :crazy000:

الحذف هنا نهائى , فيرجى توخى الحزر فى التعامل مع هذا الأمر :msn-wink:

لحذف ملف نستعمل Kill و يبدو من الإسم خطورته :shutup00:

و التى تكتب بالطريقه

Kill PathName

و كما قلنا سابقا عن الـ PathName يمكن كتابته كاملا أو إسم الملف فقط (راجع نسخ ملف)

دعونا نقتل بعض الملفات :shutup00:

Private Sub Command1_Click()
Kill "C:\Project\B.txt"
End Sub

كما يظهر لنا فعند الضغط على الزر Command1 فإن نظام التشغيل يبحث عن الملف B.txt فى المسار C:\Project و إذا وجده فيقتله :shutup00:

دعونا نزيد من خطورة الأمر :dumbbells:

قم بإنشاء مجلد جديد داخل مجلد Project بإسم Delete مثلا



ثم قم بإنشاء ملفات ذات إمتدادات مختلفه r*.bmp , r*.txt , r*.zip مثلا

لحذف جميع الملفات ذات إمتداد معين كـ r*.txt يمكنك إستبدال إسم الملف بالإمتداد , و يمكننا رؤية ذلك فى الكود التالى :

Private Sub Command2_Click()
Kill "C:\Project\Delete\*.txt"
End Sub

الآن عند الضغط على الزر Command2 يقوم نظام التشغيل بحذف جميع الملفات ذات الإمتداد r*.txt



و لحذف جميع الملفات المسماه بإسم معين و مختلفه الإمتدادات يمكن إستبدال إسم الملف بـ r1.*r كما فى الكود التالى

Private Sub Command3_Click()
Kill "C:\Project\Delete\1.*"
End Sub

و فى الكود السابق عند الضغط على الزر Command3 يقوم نظام التشغيل بحذف جميع الملفات المسماه 1 بإختلاف إمتداداتها



ماذا عن حذف جميع الملفات ؟

أظن أنكم إستنتجتم الكود , بالطبع سنقوم بإستبدال إسم الملف بـ*.*



و لا تتفقد الـ Recycle Bin لإنهم قد ذهبوا بلا رجعه :shutup00:

____________________________


انتهى الدرس انشاء الله تعم الفائده على الجميع


تحياتي

السلام عليكم ورحمة الله وبركاته
ما هي اخباركم جميعاً ؟
اتمنى أن تكونوا في خير حال وأتم الصحة والعافية كما يحب ربنا ويرضى

أخي (Mr Nigga)
مشكور على هذا الدرس .. هو درس متميز حقّاً .

أخي أتمنى تعديل هذه الجملة :
فالصواب (إن شاء الله) .. وهي تختلف عن ما كتبت جملة وتفصيلاً ..
بل إنها ذات معنى قبيح للغاية .

أخيراً .. السؤال الذي ثار في عقلي عندما قرأت موضوعك :
إذا كنت أحذف ملفاً يعمل الآن (ملف فيديو مثلاً) .. سيصدر لي رسالة خطأ تبين أن الملف المراد حذفه قيد التشغيل الآن ولا يمكن حذفه .
ماذا يمكن أن أفعل لتلافي هذه المشكلة .

ودمت سالماً .

تحياتي
أبو عبد الله عمر

شكرا لك على هذا المجهود

كثر الله خيرك اخوي وجزاك الله كل الخير