writefilefromresource.txt

一部分关于VB编程的小技巧

'/*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