سوال عن الRES FILE

بسم الله الرحمن الرحيم

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

لتفترض أنك أضفت ملف EXE إلى المشروع كملف RESOURCE FILE في هذه الحالة يجب عليك استخراجه إلى ملف على القرص الصلب لكي تتمكن من تشغيلها .

وتقبل تحياتي / المبرمج أحمد

تفضل

LoadDataIntoFile 101, App.Path & "اسم القاعدة"

وان شاء الله بزبط

اشكركم على الرد

وجازكم الله كل خير

أخي العزيز :: أبو صابرين ::

الكود الذي وضعته ينقصه تعريف الدالة LoadDataIntoFile ، فهذه الدالة لا تكون مع الفيجوال بيسك .

كود الدالة LoadDataIntoFile هو :

Private Sub LoadDataIntoFile(id As Integer, FileName As String)
    Dim myArray() As Byte
    Dim myFile As Long
    If Dir(FileName) = "" Then
        myArray = LoadResData(id, "CUSTOM FILE")
        myFile = FreeFile
        Open FileName For Binary Access Write As #myFile
        Put #myFile, , myArray
        Close #myFile
    End If
End Sub