Вы, наверное, обращали внимание на то, как
Проводник в Windows работает с файлами на Вашем компьютере, точнее сколько он
собирает информации о каждом файле? А возможно ли в Visual Basic получить такой
объем данных? Если Вы хорошо знаете Visual Basic, то скажете нет, и я соглашусь
с Вами. Но у программистов на Visual Basic имеется в распоряжении Win32 API,
который, конечно же, нам в этом поможет. Все примеры кода, которые описаны в
этой статье, Вы можете взять здесь.
Что же мы хотим узнать?
Итак,
давайте для начала решим, какие данные о файлах нам с Вами интересуют. Ну,
во-первых, имя файла, во-вторых, его атрибуты, в-третьих, а что в третьих? Разве
средствами Visual Basic можно выяснить ещё какие-нибудь, нужные для Проводника,
данные о файле?
Атрибуты файла
Задайте себе вопрос, сколько
атрибутов имеет объект файловой системы в Windows? Если Вы прочитаете справку в
Visual Basic, то увидите, что таких атрибутов шесть: обычный, только для чтения,
папка, скрытый, системный, архивный. Но, если заглянуть в документацию Win32 API
или хорошо подумать, то таких атрибутов оказывается девять! К шести уже
перечисленным, добавляется еще три атрибута, которые, однако, имеют смысл только
в файловой системе NTFS: временный, сжатый и временно недоступный. Что же делать
нормальному программисту, кому верить? Я считаю, что в данном случае прав Win32
API. Но как себя поведет Visual Basic если мы будем получать от системы
недокументированные с его точки зрения данные, а никак, он нам этого не
запретит, но и не поможет.
Итак, атрибуты файла можно получить двумя
способами. Первый заключается в вызове стандартной VB функции: GetAttr, которая
вопреки описанию, вернет не шесть, а девять атрибутов объекта файловой системы.
Второй способ заключается в использовании Win32 API и его функций, например
FindFirstFile (существует ещё добрый десяток функций, с помощью которых можно
получить ту же информацию), которая возвратит нам кроме атрибутов ещё ряд
полезных данных (но об этом чуть позже).
О функции GetAttr я рассказывать
не буду, так как она подробно описана в документации по Visual Basic. Скажу
только, что Вы можете с её помощью получать и недокументированные атрибуты:
временный, сжатый и временно недоступный. Для этого нужно лишь объявить
следующие константы:
Public Const FILE_ATTRIBUTE_ARCHIVE =
&H20 Public Const FILE_ATTRIBUTE_COMPRESSED = &H800 Public Const
FILE_ATTRIBUTE_DIRECTORY = &H10 Public Const FILE_ATTRIBUTE_HIDDEN =
&H2 Public Const FILE_ATTRIBUTE_NORMAL = &H80 Public Const
FILE_ATTRIBUTE_READONLY = &H1 Public Const FILE_ATTRIBUTE_SYSTEM =
&H4 Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const
FILE_ATTRIBUTE_OFFLINE = &H1000
Теперь поговорим о функции
FindFirstFile, она также возвращает информацию о атрибутах файла, причём в том
же виде, что и GetAttr.
'ищем файл и получаем первую порцию данных о
нём hFiles = FindFirstFile(strFile, fd)
Вызов функции очень
простой. Мы передаем ей имя файла (можно "маску", но об этом в другой
раз) и структуру fd, в которой мы и получим требуемую информацию. Описание
структуры следующее:
Public Type TFindData dwFileAttributes As
Long ftCreationTime As TFileTime ftLastAccessTime As
TFileTime ftLastWriteTime As TFileTime nFileSizeHigh As
Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As
Long cFileName As String * MAX_PATH cAlternateFileName As String *
14 End Type
Как Вы уже, наверное, догадались, первый параметр этой
структуры и есть нужное нам значение для получения атрибутов объекта файловой
системы. Теперь загрузите пример и посмотрите на атрибуты некоторых файлов. Я,
например, не смог на своём жестком диске найти файл, у которого был бы атрибут
временный. Поищите у себя на диске, если найдете, то напишите, мне очень
интересно!
Когда же ты родился?
Давайте теперь поговорим о
"временах". Файловая система хранит три типа временных характеристик
файла: время создания, время последнего доступа и время последней модификации
(т.е. записи в файл). Но, оказывается, что и тут не так всё просто. Оказывается,
что существуют отличия в хранении информации между различными файловыми
системами. В NTFS все "времена" сохраняются с точностью до 100 нс, а в
FAT время создания сохраняется с точностью до 100 нс, время последней записи с
точностью до 2 секунд, а время последнего доступа хранится с точностью до 1 дня.
Ну да бог с ними, с этими различиями, Вас, конечно, интересует вопрос, а как
можно получить эту информацию? Особо догадливые всё поняли ещё в предыдущем
параграфе, когда я описывал Вам структуру TfindData, конечно, там есть
специальные поля для возврата этих дат. Именно поэтому, я и рекомендовал Вам
использовать FindFirstFile, вместо GetAttr. Теперь давайте посмотрим в каком же
формате API вернет нам эти данные? Всё очень запутанно, эти данные возвращаются
в формате Windows и нам их нужно перевести в родной Visual Basic формат. Для
перевода в нужный нам формат мы пойдём, пожалуй, самым сложным путём, т.е. для
этого воспользуемся Win32 API. Нам потребуется две функции API, немного времени
и вагон терпения. В общем, смотрите пример, там всё это имеется. Но, существует
и ещё один путь перевода дат в нужный нам формат (основанный на математических
вычислениях), но он проходит по узкой тропинке в тёмном, тёмном лесу, сквозь
болото и мрак, и если вдруг Microsoft в следующей версии Windows изменит
внутренний формат этих данных, то тропинка переместится в какую-нибудь сторону
на несколько метров, и Вы, и Ваш код не смогут там пройти.
Мрачно...
Итак, если Вы хотите, чтобы Ваш код работал с разными файловыми
системами и версиями Windows, то, пожалуйста, обращайте внимание на некоторые
различия в их работе и пользуйтесь общепринятыми функциями для конвертирования
данных в нужный Вам формат..
Как имя твоё, незнакомец, и кто
ты?
Скажите, а Вы задумывались о том, какое имя файла показывает
Проводник? Одни имена файлов показываются без расширений, другие с расширением,
третьи, имеющие несколько расширений (а кто им это запрещает), показываются
совсем по-другому. Откуда же Проводник черпает эту информацию? Вероятно,
запрашивая данные у функции SHGetFileInfo, которая возвращает данные в структуре
SHFILEINFO.
Public Type SHFILEINFO hIcon As Long iIcon As
Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName
As String * 80 End Type
Итак, как же получить отображаемое имя
файла. Посмотрите, как я вызываю эту функцию. Первый параметр это имя файла, о
котором мы хотим узнать побольше, далее по порядку следует: атрибуты файла
(помните, мы получили их от FindFirstFile?), структура в которую нам нужно
вернуть данные, длина этой структуры и флаги функции, в зависимости от значений
которых, функция возвращает нам различную информацию (она нам потребуется
дальше):
Call SHGetFileInfo(strFile, fd.dwFileAttributes, fi, Len(fi),
SHGFI_USEFILEATTRIBUTES _ Or SHGFI_DISPLAYNAME Or
SHGFI_TYPENAME)
Я не буду приводить в тексте все флаги этой функции
(смотрите пример), скажу только, что для начала вызовите её с SHGFI_DISPLAYNAME
и SHGFI_TYPENAME и тогда она вернёт Вам отображаемое имя файла и его тип. Кроме
этого, в FAT, существует ещё оно имя, которое мы с Вами уже получали от
FindFirstFile - это имя в системе MsDOS. Конечно, эта информация Вам вряд ли
пригодится, но раз мы её уже получили, то должны знать.
О отображаемом
имени файла мы уже с Вами говорили, давайте теперь поговорим о типе файла. Тип
файла задается программой, с которой этот файл ассоциирован. Например, всем
известный тип файла "Документ Microsoft Word" задается программой
Microsofr Word, который при установке делает в реестре специальную запись.
Именно по этой записи и распознаётся тип файла. Описывая файлы, нельзя не
упомянуть о такой их характеристики, как размер. Теоретически размеров файла
может быть два?! Вот, незадача, скажете Вы. Но это так. Существует реальный
теоретический и физический размеры файла. Теоретическим я называю тот размер,
который файл мог бы занимать на диске, а физический, тот который файл в
действительности занимает. Не вдаваясь в технические подробности, можно коротко
это пояснить так. На диске файлы хранятся в кластерах, которые можно представить
в виде ящиков. Кластеры могут иметь различный размер, который зависит от типа
файловой системы (FAT, NTFS) и размера диска (вот, где собака то зарыта)! Итак,
допустим, что размер кластера на Вашем диске 4 кБ, тогда файл теоретического
размера в 16,5 кБ займёт 4 полных кластера и 5-тый на 500 байт. Вы думаете, что
в этот 5-тый кластер Windows, положит ещё какой-нибудь файл? Нет, она (Windows),
пометит это кластер, как занятый и он останется практически пустой. Так вот этот
файл будет иметь физический размер 20 кБ. Я, в примере, использую теоретический
размер файла, но, в принципе, у системе можно получить и физический
размер.
Как же ты выглядишь?
Теперь пришло время для
получения самой любопытной, на мой взгляд, информации о файле: его изображение.
Дело в том, что с каждым файлом в системе ассоциировано несколько иконок,
разного размера, а для некоторых типов (например BPM, но не всегда) можно
получить и миниатюрную копию содержимого. Все манипуляции выполняются функцией
SHGetFileInfo, только нужно передавать ей соответствующие флаги. С помощью этой
функции можно получить от системы маленькие, нормальные и большие иконки, кроме
того все они могут иметь "выделенное" состояние и ещё, в нагрузку,
быть SHGFI_LINKOVERLAY, т.е. иконка, которая отображается на ссылке на данный
файл. Например, для получения маленькой иконки файла нужно вызывать эту функцию
с флагами SHGFI_SMALLICON Or SHGFI_ICON, а для получения обычной иконки в
выделенном состоянии с флагами SHGFI_ICON Or SHGFI_SELECTED, и т.д. Комбинаций
флагов очень много, три типа иконок, каждая из которых может быть выделенной,
для ярлыка (ссылки) или и то и другое. И ещё, вы получаете от функции не саму
иконку, а её описатель, а вот для того, чтобы его превратить в иконку нужно
изрядно повозиться с OLE. Короче, я всё это представил для Вас в примере. Там
есть специальная функция, которая, с помощью OLE возвратит Вам по описателю
иконки, её изображение. Фу...х, кажется всё объяснил и рассказал.
В
общем, теперь загружайте пример и изучайте его код. Ну а если кому-то что-то
будет не понятно, то пишите мне, я обязательно
помогу.
Заключение
Конечно, я не описал и десятой части
того, что можно узнать о объекте файловой системы (файле, каталоге, диске).
Например, существует такое понятие, как тип исполняемого файла, можно посмотреть
есть ли у него "внутри" иконки и т.д. Кроме того, я Вам совсем ничего
не рассказал о папках, а ведь они также, например, имеют свои иконки (видели
специальные папки: "Принтеры", "Корзина"), да что там
иконки, они даже называются по разному! ("Корзина", например
называется в действительности "Recycled"), а как же диски компьютера
(CD-ROM, разные FDD)? Что, голова идет кругом? Ничего, я думаю что тема ,
которую я поднял в этой статье, очень интересная и мы ещё с Вами к неё
вернёмся.. Так, что следите за новостями на моём сайте!
