二進位檔案，Get和Put語句也可以讀寫多個位元組

    問題: 我使用get和put製作了一個檔案分割器，但由於是讀一個位元組寫一個位元組所以效率非常的低，請問vb有塊狀讀取二進位檔案的方法嗎？
    水平: 高手(月神)

 

 

Get和Put語句也可以讀寫多個位元組，可以把每次讀寫的內容放在一個位元組變數數組中，以提高程式速度。例如：
    　　Dim DSX() As Byte '為位元組數組，用來儲存讀寫內容
    　　Dim ReadFileNo, WriteFileNo As Integer
    　　'讀寫檔案號
    　　Const Unit = 100000　'讀寫塊的大小
    　　Open SourceFileName For Binary Access Read As 1
    　　WriteFileNo = FreeFile
    　　Open TargetFileName For Binary Access Write As WriteFileNo
    　　ReDim DSX(Unit) As Byte　'設定儲存位元組數組的大小
    　　Get #ReadFileNo, 100, DSX()
    　　Put #WriteFileNo, 1, DSX()
    　　Close WriteFileNo, ReadFileNo