Visual Basic 6. Руководство разработчика


Определение размеров свободного пространства на диске - часть 4


‘Определяем путь к текущему каталогу

retValue = GetCurrentDirectory(255, buffer)

Label7 Caption = buffer

‘Определяем путь к каталогу Windows

retValue =

GetWindowsDirectory(buffer, 255)

Label8 Caption = buffer

Screen MousePointer

= vbDefault

DoEvents

Debug

Print App = Path

End Sub

Private Sub Form_Load()

Drivel_Change

End Sub

Прочие файловые функции

Иногда пользователю требуется информация о файле, например, о его разме­щении, атрибутах или размере. Приложение Filelnfo (рис. 13.3) на компакт-диске демонстрирует возможности получения информации о файле с помощью API-функций.

Рис. 13.3. Приложение Filelnfo

VB6 в действии: проект Filelnfo

Приложение Filelnfo использует следующие функции:

•  GetFullPathName()

•  GetFileAttnbutes()

•   GetFileSize()

Рассмотрим их подробнее.

GetFullPathName(). Функция возвращает полный путь к файлу. Объявляется она следующим образом:

Private Declare Function GetFullPathName Lib "kernel32" _

Alias "GetFullPathNameA" (ByVal IpFileName As String, _

ByVal nBufferLength As Long, ByVal IpBuffer As String, _

ByVal IpFilePart As String) As Long

В приложении Filelnfo эта функция используется для получения пути к файлу, указанному пользователем в стандартном диалоговом окне File Open (Открыть файл)

В качестве параметра функции передается имя файла, путь к которому необходимо определить, а функция возвращает путь в переменной filePath.

GetFileAttributes().

Функция возвращает длинное целое значение, указывающее на состояние файла только для чтения, скрытый или нормальный. Она аналогична функции GetFileAttributes() в Visual Basic. Объявляется следующим образом:

Private Declare Function GetFileAttributes Lib "kernel32"

Alias

"GetFileAttributesA" (ByVal IpFileName As String) As Long

В табл. 13.3 приведены значения атрибутов файла. Использование этих функции продемонстрировано в программе Filelnfo.

Таблица 13.3. Атрибуты файлов

Значение

Описание

FILE_ATTRIBUTE_ ARCHIVE

Архивный файл

FILE_ATTRIBUTE_ COMPRESSED

Сжатый файл

FILE_ ATTRIBUTE_ DIRECTORY

Имя каталога

FILE_ATTRIBUTE_ HIDDEN

Файл или каталог является скрытым: при обычном выводе на экран его не видно

FILE_ATTRIBUTE_ NORMAL

Файл не имеет атрибутов

FILE_ATTRIBUTE_ READONLY

Файл предназначен только для чтения

FILE_ ATTRIBUTE_ SYSTEM

Файл является частью операционной системы

<


Начало  Назад  Вперед



Книжный магазин