Question

VB中已添加资源的EXE问题

我想让VB把我已在资源编辑器中已添加的101资源，复制到Text2输入的路径里（Text2没包括文件名），怎么办？

Answer 1

这属于从资源文件中，获得字符，有个函数，你查一下，叫读取资源文件

追问

我说的是把它复制到Text2输入的路径下！不是把它的字符提取在Text2里！

追答

假设你添加了一个资源文件得到的资源号是101号，在"CUSTOM"文件夹中.
就可以用LoadResData(101,"CUSTOM")得到该文件。

Dim xFileByteArray() As Byte
xFileByteArray = LoadResData(101,"CUSTOM")
'将资源写入文件
open App.path & "\A.Txt" for binary as #1
put #1,,xFileByteArray
Close #1

追问

我的资源是EXE文件，你这上面有一个txt，是文本文件，我要EXE，是不是把TXT改成EXE？
你不必假设，我的问题你没看清？我明明说了是101资源。

Answer 2

1、将101资源读到内存变量
2、如果101资源是一个文件，将变量输出到test2里的路径下面。。。。
一个LoadResData ，一个open ..... for binary as #file print #file,变量，
搞定

追问

看不懂，请把整个源代码给我。