[有谁能告诉我]VB怎样添加外部的资源文件夹类型的“exe”
请大家说说怎样写代码!我在调试的时候能正常打开资源文件,但保存为exe程序到桌面后,却打不开资源文件了!
有知道的说一下呀!我都花了好几个通宵去研究了,但还是不会呀!教教我吧
感激不尽!!!!!
请高手帮看看代码那里写错了:
Private Sub Command1_Click()
On Error Resume Next '出错了继续运行下去
Dim APP1() As Byte '定义了字节型APP1变量
If Dir(App.Path & "\我的软件.exe") = "" Then '判断当前有没有这个文件
APP1 = LoadResData(101, "CUSTOM") '把CUSTOM中标识号为101的资源赋值给APP1变量
Open App.Path & "\我的软件.exe" For Binary As #2 '在当前打开文件vsRepair.exe以二进制写入()
Put #2, , APP1 '把资源写入文件里面
Close #2 '关闭文件
End If
Form1.Show
Shell "我的软件.exe" '运行文件我的软件.exe
End Sub
[ 本帖最后由 huangfine 于 2011-4-6 23:07 编辑 ]