Extract part of a file

[Iain17]

This uses the last function i gave you. This writes the data got back from the last function to a new file.

Private Sub Command1_Click()
    
    'write the first 64 bytes
    writeNewFile "e:\test1.txt", "e:\config.txt", 1, 64
    'write the last 64 bytes
    writeNewFile "e:\test2.txt", "e:\config.txt", FileLen(strFile) - 63, 64
    
End Sub

Private Sub writeNewFile(strNewFile As String, strOldFile As String, lStartPos As Long, lNumChars As Long)
    Dim bTemp() As Byte
    
    'open new file for binary
    Open strNewFile For Binary As #2
    'get the data usign the other function
    bTemp = getData(strOldFile, lStartPos, lNumChars)
    'put the chunk into the new file
    Put #2, , bTemp
    'close the file
    Close #2
    
End Sub