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

برنامج Super Deviser

مغلق
بدأه Ayoub JAMAL EL IDRISSI في 4 مايو 2006 · 3 رد · 472 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا البرنامج يستطيع تجزئ ملف معين الى عدة أجزاء من أجل تسهيل حمل برنامج كبير في عدة اقراص او لغرض آخر و هو يستطيع تقسيم ملف من حجة 100 ميغا كحد أقصى طبعا يمكن رفع الحجم عن طريق تطوير البرنامج و الكود سورس مرفق يمكن ان تحاولوا معه اذا اردتم

http://ayoub.awardspace.com/Nuke/modules.p...ddetails&lid=16

#2

شكرا أخى crazyman

لا تراجع و لا إستسلام

#3

مشكور اخ crazy-man

وعندي سؤال بسيط وهو عند فتح ملف عشوائي للكتابة او للقراءة فيجب ذكر حجم الملف مثال:

open "c:\a.txt" for rendom as #1 size file

\

\

\

close #1

ففي قسم size file كيف استطيع الحصول على حجم الملف

مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية

أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا

logo.png

#4

حقيقة لم أفهم سؤالك جيدا اذا كنت تريد معرفة حجم ملف ما فالأمر بسيط و ما عليك سوى كتابة الأمر

FileLen(FilePath)

او هناك طريق اخرى و هي ان تعد عدد ال char في الملف و هكذا يعطيك الحجم بال Octet و الكود الخاص بهذه الطريقة هو :

Dim Size
Open FilePath For Input As #1
Size = LOF(1)
Close #1

و الأمر LOF يأخذ رقم الملف المراد حساب عدد ال Char فيه و بهذا المتغير يحتوي على حجم الملف بال Octet و يمكنك عمل عملية حسابية بسيطة طبعا لتحويل الحجم الى الكيلو او الميغا ... اتمنى ان يكون هذا هو مطلبك اما اذا كان غير ذلك فالمرجو توضيح السؤال

هذا الموضوع مغلق.

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