VB 释放的文件

Private Sub Command1_Click()
Dim App1() As Byte
If Dir(App.Path & "\S.exe") = "" Then '检测是否存在s.exe
App1 = LoadResData(101, "CUSTOM") '如果为空,读取资源文件中的(101,"custom")字符串
Open App.Path & "\S.exe" For Binary As #2 '打开 s.exe用二进制的方式写入数据
Put #2, , App1
Close #2 '关闭End If
Shell "s.exe", vbNormalFocus '运行这个文件
End Sub

Private Sub Form_unLoad(Cancel As Integer) '窗体卸载时删除这个文件
Kill ("s.exe")
End Sub

呵呵，我最近也在研究这个问题
你可以将它放进资源中，
运行时再释放资源就行
不过有时杀软连释放资源都会报毒
所以我想
能不能在你指定目录中新建一个和你释放文件大小相同的空exe文件，再二进制将它的内容写入
就和迅雷下载文件一样
最近在钻研啊～～

哥们 我介绍一个论坛你去看看。论坛CSDN，里面有你要的答案，再一点，要学会自己先找答案，自己找到的答案是自己的，别人告诉的是别人的。csdn里还有很多的资源和教程可以下载，但要注册一个号。