如何把VB中的资源文件 生成到指定文件夹内？
展开全部
resDataFile "MS1", "CUSTOM", "MS1Set.txt"
Private Sub resDataFile(Id, resType, FileName As String)
Dim resFile() As Byte, FileNum As Integer
On Error GoTo Err2
resFile = LoadResData(Id, resType)
FileNum = FreeFile
Open FileName For Binary Access Write As #FileNum
Put #FileNum, , resFile
Close #FileNum
Exit Sub
Err2: MsgBox Err.Description & "：" & Err.Number, vbInformation, "错误"
End Sub
Private Sub resDataFile(Id, resType, FileName As String)
Dim resFile() As Byte, FileNum As Integer
On Error GoTo Err2
resFile = LoadResData(Id, resType)
FileNum = FreeFile
Open FileName For Binary Access Write As #FileNum
Put #FileNum, , resFile
Close #FileNum
Exit Sub
Err2: MsgBox Err.Description & "：" & Err.Number, vbInformation, "错误"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
