请教一下如何释放多个资源文件
请问一下怎么释放多个资源文件.
这是释放一个文件的代码
但是多个文件同时释放要怎么写啊?
Dim TempData() As Byte
TempDataPath = C:\1.exe
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
------解决方案--------------------
Dim TempData() As Byte
TempDataPath = C:\1.exe
For i=101 TO 108
TempData = LoadResData(i, "CUSTOM") '这是那个文件编号 101
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
Next
这是释放一个文件的代码
但是多个文件同时释放要怎么写啊?
Dim TempData() As Byte
TempDataPath = C:\1.exe
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
------解决方案--------------------
Dim TempData() As Byte
TempDataPath = C:\1.exe
For i=101 TO 108
TempData = LoadResData(i, "CUSTOM") '这是那个文件编号 101
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
Next