writefilefromresource.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 21 行

'/*Loads Custom Resource data to file

Function rFile(index As Integer, sFile As String)
On Error GoTo DarnIt
Dim fn As Integer
Dim arr() As Byte

fn = FreeFile
arr() = LoadResData(index, "CUSTOM")

If FileExists(sFile) = True Then
    Kill sFile
End If

Open sFile For Binary As #fn
Put #fn, , arr()
Close #fn

DoEvents
DarnIt:
End Function