задать размер файла

[zlaya]

Добрый день!
Подскажите, можно ли в VB скомпилировать файл точно заданного размера (с точностью до байта)?

[Хакер]

если имеется ввиду PE-файл (т.е. EXE, DLL, OCX и прочее) то, ествественно размер нельзя сделать меньше чем он есть, но а если требуется увеличить размер то нужно просто дописать в конец файл Chr(0)
Причём столько раз - сколько требуется.

Вот код:

Код: Выделить всё


Sub SetFileSize(Byval sFileName As String, byval lFileSize)
Dim hFile As Long
hFile = FreeFile()
Open sFileName For Binary as #hFile
Select Case LOF(hFile)
   Case Is < lFileSize
     Put #hFile, LOF(hFile)+1, Space(lFileSize - LOF(hFile))
     Close #hFile
   Case lFileSize
    'Файл и так имеет нужный размер - ничего не делаем.
   Case Is > lFileSize
   err.Raise 5,,"Желаемый размер файла меньше реального."
End Sub


[zlaya]

Спасибо, Хакер
Идея вроде ясна. (правда если я передаю lFileSize как integer, то файл получается больше заданного на 4 байта)

[tyomitch]

SetEndOfFile не проще?

[Хакер]

Неа. В АпиГуиде её нет, поэтому надо самому догадываться, как она работает. А тут сам пишешь, сам знаешь что делаешь и как это будет работать...

[zlaya]

tyomitch

SetEndOfFile не проще?

А примерчик можно?

[Viper]

пример писать лениво, но последовательность вызовов такова:

CreateFile 'открываем файл
SetFilePointer 'устанавливаем указатель в нужную позицию
SetEndOfFile 'устанавливаем длину файла=позиции указателя
CloseHandle 'закрываем файл


Это все API-функции, подробности в MSDN. Или методом Хакера.

[tyomitch]

Неа. В АпиГуиде её нет, поэтому надо самому догадываться, как она работает.

Да ну прямо? http://www.mentalis.org/apilist/SetEndOfFile.shtml

[Хакер]

Неа. В АпиГуиде её нет, поэтому надо самому догадываться, как она работает.

Да ну прямо? http://www.mentalis.org/apilist/SetEndOfFile.shtml

Я имел ввиду в локальной версии. Т.е. в проге а не на каком то сайте. Я денег не наберусь залить по сайтам, ради описания 1-ой апишки.

[Twister]

Неа. В АпиГуиде её нет, поэтому надо самому догадываться, как она работает.

Да ну прямо? http://www.mentalis.org/apilist/SetEndOfFile.shtml

Я имел ввиду в локальной версии. Т.е. в проге а не на каком то сайте. Я денег не наберусь залить по сайтам, ради описания 1-ой апишки.

На локальной версии далеко не уедешь...

[tyomitch]

SetEndOfFile 'устанавливаем длину файла=позиции указателя

не совсем так.
SetEndOfFile - переводит текущую позицию в конец открытого файла. (Д.Эпплман)

Покажи конкретный источник цитаты. Потому что это бред. Даже для Аппельмана.

SetFilePointer - не работает с файлами более 2^64 байт.

Файлов длиннее 2^64 байт не бывает в природе.

[tyomitch]

Я имел ввиду в локальной версии. Т.е. в проге а не на каком то сайте. Я денег не наберусь залить по сайтам, ради описания 1-ой апишки.

Удобная позиция. "Мне влом учиться, поэтому мне этого не нужно."

[Twister]

SetEndOfFile 'устанавливаем длину файла=позиции указателя

не совсем так.
SetEndOfFile - переводит текущую позицию в конец открытого файла. (Д.Эпплман)

The SetEndOfFile function moves the end-of-file (EOF) position for the specified file to the current position of the file pointer.

Так что ты не прав...

[Хакер]

tyomitch
Выкладывая 200-300 у.е. каждый месяц за инет, ты бы наверное понял меня.

[Twister]

tyomitch
Выкладывая 200-300 у.е. каждый месяц за инет, ты бы наверное понял меня.

Ну хватит вам, горячие финские парни...

[tyomitch]

andreymp, на всякий случай страницу скажи: у меня дома эта книга есть.

[Хакер]

Посмотрел на свой код со стороны - обнаружил что он тупой

Вот новая версия

Код: Выделить всё

Sub SetFileSize(Byval sFileName As String, byval lFileSize)
Dim hFile As Long
hFile = FreeFile()
Open sFileName For Binary as #hFile
Select Case LOF(hFile)
   Case Is < lFileSize
     Put #hFile, lFileSize, CByte(0)
     Close #hFile
   Case lFileSize
    'Файл и так имеет нужный размер - ничего не делаем.
   Case Is > lFileSize
   err.Raise 5,,"Желаемый размер файла меньше реального."
End Sub



[tyomitch]

стр.784

Да, действительно.
А в оригинале:

Sets the current file position to be the end of file for an open file.

Переводчику низачот, подчёркнутое мной слово не заметил.