Sub copyfile(fs_in, fs_out)
f_in = FreeFile()
Sub copyfile(fs_in, fs_out)
f_in = FreeFile()
Open fs_in For Binary Access Read As f_in
f_out = FreeFile()
Open fs_out For Append Access Write As f_out
Dim s1 As String, s2 As String, s0 As String
s0 = ""
Do While Not EOF(f_in) ' 循环至文件尾。
'Input #1, TextLine ' 读入一行数据并将其赋予某变量。
s1 = InputB(1, #f_in) ' 读入一行数据并将其赋予某变量。
s2 = Hex(AscB(s1))
'Debug.Print TextLine ' 在立即窗口中显示数据。
If s2 = "D" Then
'Print #f_out, s2;
ElseIf s2 = "A" Then
Print #f_out,
Else
Print #f_out, s2;
End If
Loop
Close f_in ' 关闭文件。
Close f_out ' 关闭文件。
Close
End Sub