الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال لعمل نسخة من ملف

بدأه mohamadamouri في 21 يناير 2017 · 1 رد · 328 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم وورحممة الله وبركاته

أرجو من أخواني الاكارم الي عندو علم بالبرمجة يساعدني

عندي برنامج محاسبة والبرنامج يسوي لنفسه  نسسخة احتياطية بمجلد يدعى BAK  بنفس مجلد  البرنامج

المطلوب

اريد كود  برمجي على فيجوال بيزيك او الاكسيس لنقل الملف الاحتياطي الى مكانين

الأول مكان احدده على الهارد ديسك لكن بسواقة ثانية

الثاني على الفلاشة

واريده في كل مرة اقوم بالتخزين ان يحتفظ بالملف المخزن مسبقا ويخزن ملف اخر بجانبه بتوقيت وتاريخ التخزين وان كان بالامكان ان يعطيهم ارقام مثلا اليوم  انا خزنت يعطيه رقم 1 للملف وبتاريخ وتوقيت التخزين وعند التخزين مرة أخرى  يعطي الملف رقم 2 وبتاريخ وتوقيت التخزين الجديد وعند وصول الترقيم الى 30 مثلا يعيد الترقيم يعني انه يحتفظ بثلاثين نسخة فقط ومن ثم يقوم باستبدال النسخ يحذف اقدم نسخة ويخزن بعدها وهلم جرة

واذا كانت طلباتي صعبة ومعقدة اكتفي بكود النسخ من مجلد البرنامج الى مكان اخر بالهارد والفلاش واذا لم يستطع تحديد الفلاش سوف اوجهه بمسار الفلاش ميموري يكون ثابت

ولكم جزيل الشكر

ارجو الرد بأسرع وقت

#2

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم احد هذه الحلول

  

Public Sub copyFile()
On Error GoTo errme
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

Call fso.copyFile("D:\test.mdb", "f:\test.mdb")
MsgBox "تمت عملية النسخ بنجاح"
Exit Sub
errme:
If Err.Number = 76 Then
MsgBox "ادخل المسار بشكل صحيحÍ"
End If
End Sub

لا تنسونا من التقييم

CopyFile.rar

تم تعديل هذه المشاركة بواسطة إياد بيك في 22 يناير 2017 في 07:40

عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ

(الحسن بن علي بن أبي طالب)

مواضيع مشابهة