文件操作
Kill(strFileLocation)    ‘删除文件

Dim fileNum As Long        ‘文件号
Dim fileSize As Long        ‘文件大小
Dim fileByte() As Byte        ‘
fileSize = FileLen(strInput)    ‘得到文件大小
If fileSize > 0 Then            
    ReDim fileByte(fileSize - 1)
    fileNum = FreeFile
    Open strInput For Binary As #fileNum
    Get #fileNum, , fileByte        ‘得到文件中的二进制
Put #fileNum, , fileByte        ‘将二进制文件写入文件
    Close #fileNum        ‘关闭文件
End If