Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
    Dim bFile() As Byte
    bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
    If Dir(FileName) = "" Then '只有文件不存在时,才释放
    Open FileName For Binary As #1
        Put #1, , bFile
    Close #1
    End If
End Sub

'*************************************************************************
'**模块名：GetResFile
'**说明：将自定义资源中的文件释放出来
'**创建人：马大哈
'**描述：紫水晶工作室http://www.m5home.com
'**日期：2007年5月24日
'**版本：V3.0
'**描述：直接使用二进制写,不需要再指定文件大小了.
'**修改人：马大哈
'**日期：2007年5月26日
'*************************************************************************

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：3*4=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情