vb导出其他文件资源
-
Dim TempData() As Byte
-
TempDataPath = "C:\1.exe"
-
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101
-
Open TempDataPath For Binary Access Write As #1
-
Put #1, , TempData
-
Close #1
-
Dim TempData() As Byte
-
TempDataPath = "C:\1.exe"
-
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101
-
Open TempDataPath For Binary Access Write As #1
-
Put #1, , TempData
- Close #1
发表评论: