VB 最快速度写入二进制文件

Private Sub PutFileText(ByVal FileName As String, ByVal PutTxt As String, Optional Append As Boolean = False)
Dim tmpFileNum As Integer
tmpFileNum = FreeFile()
If Append Then
Open FileName For Binary As #tmpFileNum
If Dir(FileName) <> "" Then
If FileLen(FileName) <> 0 Then
Seek (tmpFileNum), LOF(tmpFileNum) + 1
PutTxt = vbCrLf & PutTxt
End If
End If
Put #tmpFileNum, , PutTxt
Close #tmpFileNum
Else
If Dir(FileName) <> "" Then
If FileLen(FileName) > LenB(PutTxt) Then
Kill FileName
End If
End If
Open FileName For Binary As #tmpFileNum
Put #tmpFileNum, , PutTxt
Close #tmpFileNum
End If
End Sub

用法: