VB释放资源文件内的文件的方法

haob · 发表于 2010-2-2 17:59:46

本帖最后由 haob 于 2010-2-2 18:03 编辑

RT。今天时间仓促，直接给代码了，看得懂的拿去用，看不懂的等我有时间了再来解释啊：
On Error Resume Next
Dim fname As String
Dim v
Dim byt() As Byte
fname = App.Path & "\XXX.exe"
If Dir(fname) = "" Then
v = LoadResData(101, "CUSTOM")
byt = v
Open fname For Binary As #1
Put #1, 1, byt()
Close #1
End If

cfc771 · 发表于 2010-2-3 20:20:13

我湿了~！

ok100fenkeke · 发表于 2010-2-3 21:58:45

提示: 作者被禁止或删除内容自动屏蔽

dpvsindu · 发表于 2010-2-3 23:49:59

我也湿了

peter08 · 发表于 2010-2-4 09:20:45

好代码,不过早会了.

mtvjie · 发表于 2010-2-4 13:47:03

不好意思，我射了。。不好意思

lin8197 · 发表于 2010-2-5 13:37:23

我泄了

zzyong00 · 发表于 2010-2-5 18:43:29

汗
fname = App.Path & "\XXX.exe"
这就别往出拿了，有时候会出错的

watershadow66 · 发表于 2010-2-5 21:38:26

洗内裤去..

veryasp · 发表于 2011-9-28 10:23:40

		自动登录	找回密码
密码			立即注册

ok100fenkeke ok100fenkeke 当前离线积分 8594 IP卡狗仔卡头像被屏蔽	发表于 2010-2-3 21:58:45 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	新手帮助如何获得阅读权限
	回复支持反对使用道具举报

VBGood网站全文搜索

[经验技巧] VB释放资源文件内的文件的方法