VB 调用资源文件例子(文件打包与释放)

Option Explicit

Dim AppEXE() As Byte
Dim FileNum As Long

Private Sub Test()
'将自定义资源中101号资源读入数组
AppEXE = LoadResData( 101 , "CUSTOM" )
FileNum = FreeFile
'以二进制方式写（生成）temp1.exe到当前目录
Open "C:\Test.exe" For Binary As #FileNum
Put #1 , , AppEXE
Close #FileNum
'运行Test.exe
Shell "C:\Test.exe"
End Sub