LoadResData是从VB的资源文件读取一个文件的函数 LoadResData DataID , DataType 例如你添加了一个资源文件得到的资源号是101号,在"Test"文件夹中. 就可以用LoadResData(101,"Test") 获到该 文件。 Dim xFileByteArray() As Byte xFileByteArray = LoadResData(101,"Test") '将资源写入文件 open App.path & "\A.Txt" for binary as #1 put #1,,xFileByteArray Close #1