Функция GetFileSize

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

Платформа: Win 95/98, Win NT

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
Категория Файлы
В начало.

профессиональное караоке

karaokeast.ru