如何删去文件后的n个字节.txt

VB技巧问答10000例 VB技巧问答10000例

思 路 : 按 二 进 制 读 取 源 文 件 的 前 (源 文 件 的 字 节 数 -N)个 字 节 ,写 入 目 标 文 件 。 
     目 标 文 件 sFilename 即 为 所 求 。 Very easy! 代 码 如 下 : 
     Sub MyFileCopy(sFileName0 As String, sFilename As String, Optional N As Long = 0) 
     '当 N=0时 ,即 为 Copy 
     Const KB = 1024 
     Dim nKB As Long 
     nKB = 64 
     Dim FileBuffer() As Byte 
     Dim FileNumberS As Long 
     Dim FileNumberT As Long 
     Dim lFileLen As Long 
     lFileLen = FileLen(sFileName0) - N 
     FileNumberS = FreeFile 
     Open sFileName0 For Binary Access Read As #FileNumberS 
     FileNumberT = FreeFile 
     Open sFilename For Binary Access Write As #FileNumberT 
     ReDim FileBuffer(1 To (nKB * KB)) As Byte '设 置 缓 冲 区 大 小 为 64K 
     '若 用 Do Until LOF(FileNumber) 
     ' ... 
     ' Loop 语 句 , 
     '不 方 便 ,复 杂 ! 
     Do While lFileLen >= (nKB * KB) 
     Get #FileNumberS, , FileBuffer 
     Put #FileNumberT, , FileBuffer 
     lFileLen = lFileLen - (nKB * KB) 
     Loop 
     If lFileLen > 0 Then 
     ReDim FileBuffer(1 To lFileLen) As Byte 
     Get #FileNumberS, , FileBuffer 
     Put #FileNumberT, , FileBuffer 
     End If 
     Close #FileNumberS 
     Close #FileNumberT 
     MsgBox "End!" 
     End Sub 
     若 文 件 不 大 ,可 直 接 读 写 一 次 文 件 : 
     ... 
     ReDim FileBuffer(1 To lFileLen-N) As Byte 
     Get #FileNumberS, , FileBuffer 
     Put #FileNumberT, , FileBuffer 
     ... 
<END>