Question

VB释放 多个资源文件

Dim appexe() As Byte
Dim filenum As Long
appexe = LoadResData(1, "tupian")
filenum = FreeFile
Open "d:\Program Files\123\1.jpg " For Binary As #filenum
On Error Resume Next
Put #1, , appexe
Close #filenum

麻烦各位大虾帮我改一下代码
我要释放标识号1~30 类型都是"tupian" 到同一个目录
谢谢

Answer 1

Dim bytdata() As Byte
intFile = FreeFile()
bytdata = LoadResData(1, "tupian")
'1 为资源号，tupian为资源类型
strtmpfile = "c:\img\1.jpg"'文件的路径与文件名
Open strtmpfile For Binary Access Write As #intFile
Put #intFile, , bytdata
Close (intFile)

'循环即可，资源号，文件名用变量即可

Answer 2

Dim appexe() As Byte
Dim filenum As Long
for i=1 to 30
appexe = LoadResData(i, "tupian")
filenum = FreeFile
Open "d:\Program Files\123\" & i & ".jpg " For Binary As #i
On Error Resume Next
Put #i, , appexe
Close #i
next i