Question

VB中如何把资源管理器的文件释放出来

如 VB中如何把资源器的文件释放出来，并且允许。。如把1.bat载入资源编辑器，为101.如何点击command1运行1.bat

Answer 1

Private Sub Command1_Click()
On Error Resume Next
ResToFile 101, "CUSTOM", "c:\1.bat"
Shell "c:\1.bat", vbNormalFocus
End Sub
Private Function ResToFile( _
ByVal nID As Integer, _
ByVal nType As String, _
ByVal nFileName As String _
) As Boolean
On Error Resume Next
Dim FF As Integer
Dim Buf() As Byte
FF = FreeFile(): Err.Clear
Buf = LoadResData(nID, nType)
If StrPtr(Buf) = 0 Then
ResToFile = False
Exit Function
End If
Open nFileName For Binary Lock Read Write As #FF
If Err <> 0 Then
ResToFile = False
Exit Function
End If
Put #FF, , Buf()
DoEvents: Close #FF
ResToFile = True
End Function