Функция GetFileSize

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

GetFileSize определяет размер файла.

Возвращаемое значение

Функция в успешном случае возвращает размер файла, при ошибке возвращается -1.

Параметры

hFile

Описатель файла. Файл следует сначала открыть с помощью CreateFile(), используя флаг OPEN_EXISTING (чтобы проверить существование файла)

lpFileSizeHigh

Размер файла

Пример

' Определяем размер файла "C:\config.sys"

Dim filePointer As Long, fileSize As Long
' Получаем дескриптор файла с помощью CreateFile
filePointer = CreateFile("c:\config.sys", GENERIC_READ Or GENERIC_WRITE, 0&, 0&, OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, 0&)
fileSize = GetFileSize(filePointer, 0&)
Debug.Print "Размер файла:" fileSize
' Закрываем файл
CloseHandle (filePointer)

Смотри также

GetFileInformationByHandle

Категория

Файлы