+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طريقة حذف جميع المحتويات (/showthread.php?tid=7096)
طريقة حذف جميع المحتويات - Mido9 - 23-11-12
السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل اريد امر حذف كافة محتويات بارتيشن محدد
بمعنى اضع فى التيكست بوكس c يقوم بعمل فورمات للسي
اقوم بوضع الـ f يقوم بعمل فورمات للإف
بمعنى حذف كافه محتويات بارتيشن بواسطه امر محدد و فى وقت سريع
وجزاكم الله خيرا
طريقة حذف جميع المحتويات - عبدالله الصافي - 23-11-12
جرب ذلك الكود.
PHP كود :
On Error Resume Next
Shell "cmd /c format أكتب هنا المسار الذي تريده ", vbHide
طريقة حذف جميع المحتويات - عبدالله الصافي - 23-11-12
عذرا وأسف جدا تعديل بسيط بالكود.
قم فقط بأستبدال (H) برمز البرتشن الذي تريد فرمته.
كنننننننننن حذذذذذذذذذذرا حتي لا تتسبب في فقدان ملفاتك للأبد.
لأن الكود لا يطلب منك أية تأكيدات للحذف.
PHP كود :
On Error Resume Next
Shell "cmd /c format h: /q /y ", vbHide
طريقة حذف جميع المحتويات - Mido9 - 23-11-12
عبدالله الصافي كتب :عذرا وأسف جدا تعديل بسيط بالكود.
قم فقط بأستبدال (H) برمز البرتشن الذي تريد فرمته.
كنننننننننن حذذذذذذذذذذرا حتي لا تتسبب في فقدان ملفاتك للأبد.
لأن الكود لا يطلب منك أية تأكيدات للحذف.
PHP كود :
On Error Resume Next
Shell "cmd /c format h: /q /y ", vbHide
جزاك الله خيرا اخي الفاضل على المساعده بارك الله فيك
ولكن هل انت متأكد ان الكود يعمل بنجاح ؟
+ هل اغير حرف الـ h فقط ؟
طريقة حذف جميع المحتويات - عبدالله الصافي - 23-11-12
نعم أخي الكريم الكود شغاااال.
وكما أخبرتك قم فقط بتبديل حرف الـ(h) برمز البرتشن المراد فرمته.
ولتجربة الكود قم بربط (فلاشة) بجهاز الكمبيوتر وحاول تجربة الكود عليها.
طريقة حذف جميع المحتويات - hago - 23-11-12
اسمحو لى بالتعديل على الكود بـــ إضافة رسالة التأكيد
PHP كود :
Dim sure
sure = MsgBox("انت على وشك حذف البارتشن هل تريد المتابعة ؟", vbExclamation + vbYesNo + arabic, "حذف بارتشن")
If sure = vbYes Then
On Error Resume Next
Shell "cmd /c format h: /q /y ", vbHide
End If
صراحة لم اجرب الكود شوف انت وخبرنى بالنتيجة
تحياتى للجميع
تحياتى للجميع
طريقة حذف جميع المحتويات - Mido9 - 23-11-12
عبدالله الصافي كتب :نعم أخي الكريم الكود شغاااال.
وكما أخبرتك قم فقط بتبديل حرف الـ(h) برمز البرتشن المراد فرمته.
ولتجربة الكود قم بربط (فلاشة) بجهاز الكمبيوتر وحاول تجربة الكود عليها.
جزاك الله خيرا اخي الفاضل على المساعده , بارك الله فيك
تمت التجربه و نجحت الحمد لله
بارك الله فيك ياااااااااارب
طريقة حذف جميع المحتويات - Mido9 - 23-11-12
hago كتب :اسمحو لى بالتعديل على الكود بـــ إضافة رسالة التأكيد
PHP كود :
Dim sure
sure = MsgBox("انت على وشك حذف البارتشن هل تريد المتابعة ؟", vbExclamation + vbYesNo + arabic, "حذف بارتشن")
If sure = vbYes Then
On Error Resume Next
Shell "cmd /c format h: /q /y ", vbHide
End Ifصراحة لم اجرب الكود شوف انت وخبرنى بالنتيجة
تحياتى للجميع
جزاك الله خيرا على الاضافه الجميله ,, تمت التجربة و نجحت الحمد لله
تسلم إيدك
