النسخ الاحتياطي للبيانات

السلام

لعمل الفولدر

_________________________________________

Private Sub CMDmak_Click()

'MkDir "D:BACKUP"

'MkDir "D:BACKUPSITRAWI"

End Sub

لنسخ الملف

_____________________________________

Private Sub CMDBAK_Click()

SOURCE = "D:husAig.bmp"

dESTN = "D:BACKUPSITRAWIAIG.BMp"

FileCopy SOURCE, dESTN

End Sub

;)

حضرة الأخ إن الكود الذي تقترحه أعرف استخدامه منذ فيجول بايزيك 3 لويندوز 3.1 ولكن المقترح هنا تخزين ملفات البيانات المتعددة ضمن ملف واحد مثل WINZIPمثلا ولكن باستخدام كود فيجول بايزيك ودون استخدام برامج خارجية مساعدة أي أن يقوم الكود بضغط الملفات بنفسه داخليا

;)