6 lines
240 B
Text
6 lines
240 B
Text
|
Truncate[file_, n_] := Module[{filename = file, nbbytes = n, temp},
|
||
|
|
temp = $TemporaryPrefix <> filename;
|
||
|
|
BinaryWrite[temp, BinaryReadList[filename, "Byte", nbbytes]];
|
||
|
|
Close[temp]; DeleteFile[filename]; RenameFile[temp, filename];
|
||
|
|
]
|