如何把大于64K的文件存放在资源文件里并能解出来?

Question

自定义资源项目的大小为64K,如何把大于64K的文件放进去,如何解出来?请高手给个代码.

Answer 1

'资源文件写
Public Function WirteRes(ByVal ResID As String, ByVal ResType As String, ByVal PathFile As String) As Boolean
    Dim f As Integer
    f = FreeFile
    Dim MyExe() As Byte
    MyExe = LoadResData(ResID, ResType)
    Open PathFile For Output As #f
    Close #f
    Open PathFile For Binary As #f
    Put #f, , MyExe
    Close #f
    Erase MyExe
    'IF WirteRes("MyExe","RES","F:\MyExe.exe") Then
End Function
====================================
大于64K的最好是二进制分割成小于64K的文件，读出时再合并。