تحية طيبة ،
كنت ابحث عن هذه العمليات ووجدت طريقة سهلة لعملها ، وارجو ان يستفيد منها الجميع
- عملية نسخ ملف من موقع الى اخر
FileCopy "c:\TRADELOG.txt", "D:\b.txt"
-عملية حذف ملف
Kill "D:\newb.txt"
-عملية اعادة تسمية ملف
Name "D:\b.txt" As "D:\newb.txt"
يــــا أقصى .... لا تنادي ..... فلن يجيبك احد
رائع اخي هيثم وبارك الله فيك
*************************************************
**************************************************
مصطفى زيداني
رائع اخي هيثم وبارك الله فيك
شكراً أخي هيثم على الطريقة الرائعة
أنا أعرف طريقة أخرى ولكنها طويلة وصعبة جداً
تحياتي (h)
من كان في حاجة أخيه كان الله في حاجته
_______________________________________________________________
الاخوان mostafazidani ، COMFORT ،moh_89
شكرا لكم
اخواني : اذا ايضا لديكم اسئلة بخصوص التعامل مع Text File بعون الله بفيدكم بالموضوع لاني دايخ من اسبوع بخصوص هالموضوع
وبفضل الله صار عندي شوية معلومات عن الموضوع
شكرا
يــــا أقصى .... لا تنادي ..... فلن يجيبك احد
شكرا لك ياهيثم :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اخى العزيز اشكرك على المعلومة ارجو شرح طريقة عمل نسخة من الملف فى مكان اخر مع اضافة تاريخ عمل النسخة فى الملف مثال
اذا كان اسم الملف 8
ومكانة موجود فى c:\8.dba
اريد عمل نسخة منه وتكون بالشكل الاتى
d:\8 1/6/2005.dba
1/6/2005 هو تاريخ عمل النسخة ارجو شرح الطريقة شكرا
اخي العزيز kokogogo2000
هذا هو الحل بعون الله واذا عنك أي سؤال انا جاهز
Dim vNewName As String Dim vDate As String Dim vCopy As String Dim vNewNameCopy As String vDate = Format(Date, "dd-mm-yyyy") vNewName = "C:\8 " & vDate & ".txt" Name "C:\8.txt" As vNewName vNewNameCopy = "8 " & vDate & ".txt" vCopy = "D:\" & vNewNameCopy FileCopy vNewName, vCopy Kill vNewName هذه الجملة اذا اردت ان تحذف الملف القديم الموجود على :C Exit Sub
تم تعديل هذه المشاركة بواسطة HaithamNazzal في 5 يونيو 2005 في 09:08
يــــا أقصى .... لا تنادي ..... فلن يجيبك احد
شكرا اخى العزيز HaithamNazzal على كرم اخلاقك
هذا الموضوع مغلق.