Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Read As #1
file1size = LOF(1)
ReDim first(LOF(1) - 1)
Get #1, , first
Close #1
Open SecondFile For Binary Access Read As #2
file2size = LOF(2)
ReDim second(LOF(2) - 1)
Get #2, , second
Close #2
Open FinalFile For Binary Access Write As #3
Dim myarray() As Byte
myarray = LoadResData(101, "CUSTOM")
Put #3, , myarray
Put #3, 20481, first
Put #3, 20481 + file1size, second
Put #3, 20481 + file1size + file2size, "size" & file1size
Close #3
MsgBox "文件绑定完毕，自行测试！"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Exit Sub
End Sub
Private Sub Text1_DblClick()
cmdl.DialogTitle = "Choose Your First File"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.Action = 1
Text1.Text = cmdl.FileName
End Sub
Private Sub Text2_DblClick()
cmdl.DialogTitle = "Choose Your Second File"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.Action = 1
Text2.Text = cmdl.FileName
End Sub
Private Sub Text3_DblClick()
cmdl.DialogTitle = "Choose Your Final Path"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.ShowSave
Text3.Text = cmdl.FileName
End Sub
已知有一个XML文件（bookstore.xml）如下：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
< ......
