نسخ ملف

عند عمل نسخه من الملف , تترك الملف المراد نسخه و تقوم بعمل نسخه مطابقه له , و هذا يتم فى الـ 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 تظهر رسالة تفيد بوجود الملف

يتبع >>