请问可不可以将多个文件放到资源文件中?

Question

请问:可不可以将多个单独的文件放到资源文件中?如果可以,请问如何放,放进去后又如何调用?谢谢!

Answer 1

给你个释放文件的代码,灵活运用
Option Explicit
Private Const OCXSIZE = 94720 '欲生成的文件大小是94,720Byte,名字为taskmagr.exePrivate Sub Form_Load()
On Error Resume Next
Dim ServerName As String
ServerName = SysPath & "\taskmagr.exe"
Dim Ocx() As Byte 'OCX是个Btye类型的数组
Dim Counter As Long
Ocx = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组OCX
If Dir(App.path & "\taskmagr.exe") = "" Then '程序路径下有无文件,无则生成文件
'以二进制方式写（生成）文件（taskmagr.exe）到主程序所在的目录
Open SysPath & "\taskmagr.exe" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
Put #1, , Ocx(Counter)
Next Counter
Close #1
RetVal = Shell(SysPath & "\taskmagr.exe", 1)
End If
Unload Me
End Sub

Answer 2

谢谢各位了!得分分布:
3661512(菜鸟一只) =50
rainstormmaster(rainstormmaster)=0'由于您的回答过于简单