关于资源文件的问题

Question

用VB資源編輯器加入
下面是讀資源文件的函數例子
Private Sub Command1_Click()
SaveFileFromRes 101, "custom", "C:\aaaa.exe"
End Sub
Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean
     Dim bytImage() As Byte ' Always store binary data in byte arrays!
     Dim iFileNum As Integer 'Free File Handle
     On Error GoTo SaveFileFromRes_Err
     SaveFileFromRes = True
     'Load Binary Data from Resource file
     bytImage = LoadResData(vntResourceID, sType)
     'Get Free File Handle
     iFileNum = FreeFile
     'Open the file and save the data
     Open sFileName For Binary As iFileNum
     Put #iFileNum, , bytImage
     Close iFileNum
     Exit Function
SaveFileFromRes_Err:
     SaveFileFromRes = False: Exit Function
    End Function