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

你的意思是把易做的程序做成VB资源文件，然后写出到文件再执行吧。

两点要注意

1、做资源文件时选自定义资源

2、写出文件时，必须通过字节数组变量，且被写出的文件必须不存在(存在的话如果字节数少于或等于要写出的字节数也OK，但多出的话就。。。 )。

dim b() as byte

Open "c:\a.exe" For Binary As #1

b = LoadResData(101, "CUSTOM")

put #1,,b

close #1

---