一个关于资源文件的问题

Question

在VB中如何在程序运行的过程中动态加载资源文件并读取或是写入资源？

Answer 1

写入不行，读到可以，如下：
Option ExplicitPublic MyExe() As BytePublic Function Exe_W(ByVal fN As String) As Boolean
    
    Dim f As Integer
    f = FreeFile
    Open fN For Output As #f
    Close #f
    Exe_W = True
    
End FunctionPublic Function WirteFile(ByVal ResID As String, ByVal ResType As String, ByVal PathFile As String) As Boolean
    
    MyExe = LoadResData(ResID, ResType)
    If Exe_W(PathFile) Then
    Dim f As Integer
    f = FreeFile
    Open PathFile For Binary As #f
    Put #f, , MyExe
    Close #f
    WirteFile = True
    Else
    WirteFile = False
    End If
    
End Function'shell
'IF WirteFile("MyExe","RES","F:\MyExe.exe") Then

Answer 2

读取，LoadResString(ResID)，返回一个字符串
写入，应该直接在程序中写，不是更好吗？