عمل النسخة الاحتياطية بشكل متقدم جدا سيكون الكود

معقولة 40 زائر ولا حتى رد واحد

السلام عليكم

اخي الكريم عنوان سؤالك لا يدل على محتوى الموضوع أنا قرأت عنوان الموضوع ولم ادخل الموضوع - لاني فهمت من العنوان انك وضعت كود لنسخ القاعدة - وبما اني لست بحاجة لكود النسخ فأنني لست بحاجة للدخول لقراءة الموضوع ، ولكن عندما وجدت وقتي يسمح لي بفرصة المكوث وقت اطول في المنتدى ، حدثتني نفسي بالدخول للموضوع للإستفادة ، ولكني وجدت الموضوع سؤال وليس طرح معلومة .

بالنسبة لمعرفة عدد الدسكات التي تحتاجها فهي تظهر عندما تقسم حجم ملف قاعدة البيانات على 1024 وهو حجم الفلوبي ديسك ، وبالتالي يظهر لك عدد الديسكات .

اما النسخ للقرص الصلب بإبمكانك تحديد أي مكان تريده باستخدام دالة filecopy

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

فكرة البرنامج هذا سهله جداً بل فى غاية السهوله يستطيع المبتدئ ان يخطوا فيها خطوات

وكما قال المتميز

اقتباس

بالنسبة لمعرفة عدد الدسكات التي تحتاجها فهي تظهر عندما تقسم حجم ملف قاعدة البيانات على 1024 وهو حجم الفلوبي ديسك ، وبالتالي يظهر لك عدد الديسكات .

اما النسخ للقرص الصلب بإبمكانك تحديد أي مكان تريده باستخدام دالة filecopy

أريد أمثل أو بداية العمل

المهم عندي هو عدد الفلوبيات

المهم هو عدد الديسكات

استخدم دالة filelen وذلك لاسترجاع حجم الملف بالبايت مثلا

si=filelen("c:\db1.mdb")

الان متغير si يحمل قيمة الحجم ، ومعلوم أن :

الكيلو بايت = 1024 بايت

الميقا بايت = 1024 كيلو بايت

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

حجم الديسك بالكامل = 1474.56 كيلوبايت اى يساوى 1509949.44 بايت

حتى تأتى بعدد الديسكات استخدم الكود التالى:-

Dim Count1 as Long , Count2 As Long
'حتى تأتى بمساحة الملف بالبايت
Count1 = Filelen("مسار الملف")
'حتى تحول المساحه بالكيلو بايت
Count1 = Val(Count1/1024)
'حتى تأتى بعدد الديسكات
Count2 = Int(val(Count1/1474.56))

وبهذا تكون قد حصلت على عدد الديسكات المطلوبه

مع خالص تحياتى...

شريف...