求vb释放程序代码

我想用vb程序在 当前目录 释放三个excel表格文件 该怎样写？

先把三个excel文件放到资源文件里面
然后用下面的代码
测试通过
Private Sub Form_Load()
Dim byt() As Byte
Dim File As String

File = App.Path & "\1.xls"
byt = LoadResData(101, "CUSTOM")
Open File For Binary As #1
Put #1, 1, byt()
Close #1
File = App.Path & "\2.xls"
byt = LoadResData(102, "CUSTOM")
Open File For Binary As #1
Put #1, 1, byt()
Close #1
File = App.Path & "\3.xls"
byt = LoadResData(103, "CUSTOM")
Open File For Binary As #1
Put #1, 1, byt()
Close #1
End Sub

'在资源管理器里倒数第二个按钮添加自定义文件资源,添加如下函数过程 public function savefilefromres(vntresourceid as variant, stype as string, sfilename as string) as boolean dim bytimage() as byte dim ifilenum as integer on error goto savefilefromres_err savefilefromres = true bytimage = loadresdata(vntresourceid, stype) ifilenum = freefile open sfilename for binary as ifilenum put #ifilenum, , bytimage close ifilenum savefilefromres_err: exit function savefilefromres = false: exit function end function '调用 private sub command1_click() savefilefromres 101, "custom", "test.exe" 'test.exe即释放的文件,可以指定路径和任意命名 shell "test.exe", 1 '运行释放的文件,路径和文件名要对应 end sub '''类推,改标识号为102,指定路径和文件名就好了 private sub form_unload(cancel as integer) if dir("test.exe") <> "" then kill "test.exe" '退出时删除释放的文件 '''''''类推 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息