vb导出其他文件资源

1. Dim TempData() As Byte
   
2. TempDataPath = "C:\1.exe"
   
3. TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101
   
4. Open TempDataPath For Binary Access Write As #1
   
5. Put #1, , TempData
   
6. Close #1