منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] منع خذف ملف معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] منع خذف ملف معين (/showthread.php?tid=1465)

منع خذف ملف معين - professional sniper - 05-01-14

ممكن كود لمنع خذف ملف معين او نعديل اسمه

RE: منع خذف ملف معين - asto - 05-01-14

و جدت في احدى المواقع هذه المشاركة

"
المهم الطريقة التي يمكن بها اقفال مجلد ومنع المستخدم من مسحه او تغيير اسمه او تغيير مكانه ... و التي لا تنفع الا في الويندوز 98 هي :
ادخل الى نافذة الدوس
|||||||||||||مثلا نريد أقفال المجلد "C:\Crazy"
نقوم يتغيير المسار في الدوس بكتابة cd.. الى ان يصبح المسار
c:\>
نقوم الآن بكتابة الأمر التالي
c:\>ren crazy crazy
ثم قبل الضغط على Enter نقوم بالضغط على Alt و دون تركها نركب الرقم 220 ثم نترك Alt سنلاحظ أنه تم كتابة رمز صغير بعد ذلك نضغط على Enter فيكون هكذا قد تم أغلاق المجلد

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

"

RE: منع خذف ملف معين - VB_Coder - 07-01-14

السلام عليكم

- قم بفتح الملف بهذه الطريقة وبذلك لكن يكون أحد قادر على تعديله أو حذفه إلى أن تغلقة :

كود :
Dim F As Integer

Private Sub Command1_Click()
'لمنع التعديل عليه والحذف
F = FreeFile
Open "C:\File.exe" For Binary Lock Read Write As #F
End Sub

Private Sub Command2_Click()
'للسماح
Close #F
End Sub

- تحياتي .