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

لإعادة تسميه ملف نستخدم 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

يتبع >>