- Код: Выделить всё
stroka=spc(filelen(infile))
PS:Память в компе стоит 2 Гб, HDD 120 Гб и свободен на 50%, файл подкачки не отключен.
stroka=spc(filelen(infile))
Dim s As String
s = Space(50000000) ' заполняется пробелами
lenfil = FileLen(inputfile)
strok = Space(lenfil)
hfile = CreateFile(inputfile, GENERIC_READ, FILE_SHARE_READ, _
ByVal CLng(0), OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0)
retval = ReadFile(hfile, ByVal strok, lenfil, numread, ByVal CLng(0))
retval = CloseHandle(hfile)
Сейчас этот форум просматривают: Yandex-бот и гости: 122