حماية من النسخ بواسطة ملف .txt

الأخ فتى الوادي

اليك هذا الكود

الاقتران الأول يستخدم لفحص وجود الملف (اذا كان موجود يرجع قيمة True واذا لم يجده يرجع False )

وفي الاجراء الثاني (FormLoad) يتم استدعاء الاقتران وفي حال عدم وجود الملف يتم اظهار رسالة للمستخدم واغلاق النظام

Function CheckIsFileExist(FileName As String) As Boolean
    If Dir(FileName) = "" Then
        CheckIsFileExist = False
    Else
        CheckIsFileExist = True
    End If
End Function

Sub FormLoad()
If CheckIsFileExist("c:\a.txt") = False Then
 MsgBox "Illegal Copy ... System will shutdown"
    DoCmd.Quit
End If
End Sub

أثابك الله وأحسن إليك ..

هل من الممكن التوضيح بمثال مرفق ..

تفضل يا أخي العزيز ،،،، هذا المثال مرفق

بنفس الكود الذي وضعه الاستاذ / أحمد فخري الهياجنة ،،،، مشكوراً

شاكر الزين

txt_97.zip