Question

VB资源管理器怎么用吖？？

我想释放出我的资源文件： On Error Resume Next Call CreateFile(App.Path & "\SVCH0ST.exe", 101, 118784) 这里的CreateFile应该怎么定义才能释放出来呢？？ 麻烦详细一点。

Answer 1

Dim filebyte() As Byte 'Byte数组，存储要写入文件的字节 filebyte = LoadResData(101, "custom") '见文件字节写入 Byte数组中 Open "要释放的文件路径" For Binary As #1 Put #1, , filebyte 将Byte 数组写入 该文件 Close #1 比如说我要将序列号为 101 的资源文件（a.bat） 释放到 C:\Documents and Settings\a.bat 就可以用如下代码 Dim filebyte() As Byte filebyte = LoadResData(101, "custom") Open "C:\Documents and Settings\a.bat" For Binary As #1 Put #1, , filebyte Close #1