07-01-14, 10:34 PM
السلام عليكم
- قم بفتح الملف بهذه الطريقة وبذلك لكن يكون أحد قادر على تعديله أو حذفه إلى أن تغلقة :
- تحياتي .
- قم بفتح الملف بهذه الطريقة وبذلك لكن يكون أحد قادر على تعديله أو حذفه إلى أن تغلقة :
كود :
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- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next