Укорачивание файла с произвольным доступом

[_ArArA_]

Как "урезать" сабж, чтоб удалить последние записи?

[GSerg]

Прочитать первые, удалить файл, кинуть прочитанное в новый файл с тем же именем.

[Mikle]

Прочитать первые, удалить файл, кинуть прочитанное в новый файл с тем же именем.
А если файл на 500 мегабайт? Я, столкнулся с этой проблеммой - и режил через ж.. - написал на Delphi DLL, с такой процедурой, вызывал ее из бейсика. Работает мгновенно. Хотя наверняка существует такая API, только негде и некогда было искать.

[Amed]

А если так:

Смотрим полный размер файла через

Public Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Затем открываем файл бинарно и удаляем байты после последнего нужного (записываем в них ноль)... Так ведь размер файла урезается, правильно?

[Mikle]

Размер не урезается.

[Хой]

нужного (записываем в них ноль)... Так ведь размер файла урезается, правильно?

Ясен пень, не урезается!
--------------

Затем открываем файл бинарно и удаляем байты после последнего нужного (записываем в них ноль)...

Помнится так работал всеми любимый Win95.CIH (никому, случайно, исходник не нужен?), тока он в те байты каторые "ноль" прописывал себя......ну а потом стирал Flash-память...и ломал винчестер....

[Amed]

Ну в общем всё ясно - я тупой ньюбЪ...

[_ArArA_]

А как все-таки урезать?

[Dmitriy2003]

Вот че отцы советуют
-------------------------------------------------------------
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const OPEN_EXISTING = 3
'
Private Const FILE_BEGIN = 0
Private Const FILE_CURRENT = 1
Private Const FILE_END = 2
'
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
'
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
'
Private Declare Function SetFilePointer Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lDistanceToMove As Long, _
lpDistanceToMoveHigh As Long, _
ByVal dwMoveMethod As Long) As Long
'
Private Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Удачи......