النسخ الاحتياطية للملفات

عليك استخدام اوامر فتح الملف و القرائة منه مثل الاوامر

Open "abc.txt" for input as #1
Open "cxd.txt" for output as #2


do until eof(1)
  intput #1, a
  print #2, a
loop

close #1
close #2

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

لو وجهت هذا السؤال الى مبرمجي منتدى الفيجوال بيزك لربما يساعدوك اكثر

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

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

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

Public Function copying()

Dim wrkDefault As Workspace

Dim dbsNew As Database

Dim mydb

Dim T As Variant

On Error GoTo LINE_1

LINE_2:

mydb = Dir("a:unit.mdb")

اولا تشوف هل

DB

موجوده او تقوم بانشاءها وسميتها في هذه الحالة

unit.mbd

وسوف تنشئى على القرص المرن

If mydb = "" Then

Set wrkDefault = DBEngine.Workspaces(0)

Set dbsNew = wrkDefault.CreateDatabase("a:unit.mdb", dbLangArabic)

DoCmd.RunMacro "BackUp"

هذا الماكر يقوم يارسال الجداول التي تحددها الى

قاعدة البيانات على القرص المرن

تختار بالماكرو الامر TransferDatabase وتحدد بالخصاص بالاسفل بالاتي

نوع النقل : تصدير

نوع قاعدة البيانات MICROSOST ACCESS :

اسم قاعدة البيانات : a:unit.mdb

نوع الكائن : جدول

المصدر : unit اسم DATABASE على الجهاز

الوجهه : اسم الجدول على القرص

البنية فقط : لا (حتى يتم نقل البيانات )

GoTo LINE_3

Else

DoCmd.RunMacro "BackUp"

GoTo LINE_3

End If

LINE_1:

اذا كان القرص المرن جاهر لا مشكلة سيقوم البرنامج بالقفز الىِِِِِِ

LINE3

ولكن اذا كان العكس ستظهر رسالة تفيد بعدم وجود القرص بالدريفِ

T = MsgBox("دريف A غير جاهز هل تريدالاعادة", vbYesNo, "رسالة تنبيه")

If T = 6 Then

Resume

End If

LINE_3:

End Function

شكرا للاخ خضرترزي والأخ عطار

نعم أخي عطار هذا هو المطلوب وجزاكم الله خير

وإن شاء الله سنرد لكم هذا الجميل

تحياتي