Есть двоичный файл.
Необходимо изменить содержимое файла. В начало и в конец добавить информацию и сохранить под другим именем.
Это надо делать из макроса в Excel.
Как это можно сделать оптимально ?
Размер файла может быть большим.
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oFile: Set oFile = oFSO.GetFile(strPath)
If IsNull(oFile) Then MsgBox ("File not found: " & strPath): Exit Function
With oFile.OpenAsTextStream()
readBinary = .Read(oFile.Size)
.Close
End With
И так записываю,
Код: vbnet
1. 2. 3. 4. 5. 6.
s_stream = readBinary(AFile_bz.Path)
s_stream = "Start text " + s_stream + "End texy"
With fso.createTextFile(s_new_file)
.Write (s_stream)
.Close
End With
