VB中资源器的文件如何释放。。

对于基码释放资源，我写了个函数。

ResType

，如果你的是在CUSTOM里面就写CUSTOM，

Function

DespFile(ByVal

ResID,

ResType,

ByVal

FilePath

As

String)

Dim

x()

As

Long

Open

FilePath

For

Binary

As

#2

'要写的文件

Open

App.Path

&

"\Tmp"

For

Binary

As

#1

'临时文件

Put

#1,

,

LoadResData(ResID,

ResType)

'获得资滚基源，写入临时文件

ReDim

x(0

To

Loc(1))

'重定义数组

Get

#1,

,

x()

'获得临时文件的内容

For

i

=

1

To

Loc(1)

'循环

DoEvents

'等待其他函数的 *** 作，如果没有。继续执行。

If

i

>

12

Then

'修剪前12

Byte

，防止输出的文件错误。

Put

#2,

i

-

12,

x(i)

'写入文件

End

If

Next

Close

#1

'关闭1号文件

Close

#2

'关闭2号文件

End

Function

运行htm？你指的是在程序中运行还是？

如果是打搏备哪开浏览器，就用shell就可以了

Shell

"explorer.exe

"

&

FileName

PrivateSubCommand1_Click()appexe=LoadResData(101,"辩做猛CUSTOM")'载入资源filenum=FreeFile'获携桥得空闲文件号Open"c:\"&"胡型123.txt"ForBinaryAs#filenum'打开一个二进制文件并写入OnErrorResumeNextPut#1,,appexe'写入文件Close#filenum'关闭'资源就保存到了c:\123.txt里EndSub

---