عملية نسخ جدول معين في القرص :A

اشكرك مقدماً وقبل الإطلاع على الملف المرفق.

وأدعو الله أن يبارك في جهدك وينفع به ويؤجرك خيراً على ماقدمت.

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

تشكر اخي على هذا البرنامج الجيد

وآمل لو تكرمت بوضع نسخة ثانية على الاصدار افس 2000 أو XP

وتقبل تحياتي

أخي أبو عقيل

الفكره ممتازه وجميله

الرجاء إرفاق الملف بتهيئة 2000 أو xp

مع تحياتي(f)(f)(f)(f)(f)

جزاك الله خير

تفضلوا يا إخوان (gift)

هذه نسخة على أكسس xp

تحياتي

أبو عقيل (f)

copy_xp.zip

اخي ابو عقيل بارك الله فيك والحقيقه اكثر من رائع ولكن لي ملاحظه بسيطه

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

بارك الله فيك ووفقك

بارك الله فيك وافاد بك الجميع

شاكرا ومقدرا تجاوبك السريع

واضم صوتي للاخ alali100 الى ما اشار له

وافيدك بأني حاولة استفيد من البرنامج من خلال استيراد ملفات البرنامج

ولكن بدون فايدة

تحياتي لك

مشكور أخونا العزيز علي المثال الجميل

بالنسبة لتهيئة القرص ، لم تعمل معي نسخة ال اكس بي

علي ويندوز إكس بي

فاحببت أن أشارك باضافة دالة أخري للتهيئة من دوال ال api

Const SHFD_CAPACITY_DEFAULT = 0 ' default drive capacity

Const SHFD_CAPACITY_360 = 3 ' 360KB, applies to 5.25" drives only

Const SHFD_CAPACITY_720 = 5 ' 720KB, applies to 3.5" drives only

Const SHFD_FORMAT_QUICK = 0 ' quick format

Const SHFD_FORMAT_FULL = 1 ' full format

Const SHFD_FORMAT_SYSONLY = 2 ' copies system files only (Win95 Only!)

Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long

Private Sub Form_Load()

    'KPD-Team 1999

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net

    'iDrive = The drive number to format. Drive A=0, B=1 (if present, otherwise C=1), and so on.

    SHFormatDrive Me.hwnd, 0, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK

End Sub

copy_xp_abuaqueel_2.rar

أستاذي الكريم : محمد طاهر (gift)

أشكرك على هذا التعديل ، لاني فعلا لم أختبرها ، فقد قمت بتحويلها

من أكسس 97 إلى أكسس XP مباشرة ،

أشكرك عزيزي (f)

تحياتي

أبو عقيل (f)(f)(f)

شكراً ابو عقيل

الله يعطيك الصحة والعافية