Реферат: FSO – тяжелая артиллерия VB6

Set fldr = fso.CreateFolder("C:MyTest")

MsgBox "Created folder: " & fldr.Name

End Sub

Обращение к Properties (Свойствам) Объекта

Как только Вы имеете код обработки объекта, Вы можете обращаться к его свойствам. Например, если Вы хотите получить имя специфической папки. Сначала Вы создаете образец объекта, затем Вы получаете код для его обработки соответствующим методом (в этом случае метод GetFolder, так как папка уже существует):

Set fldr = fso.GetFolder("c:")

Теперь, когда Вы имеете код обработки объекта Folder, Вы можете проверить свойство Name:

Debug.Print "Folder name is: "; fldr.Name

Если Вы хотите выяснять когда в последний раз, файл изменялся, используется следующий синтаксис:

Dim fso As New FileSystemObject, fil As File

'Получаем объект File, чтобы сделать запрос

Set fil = fso.GetFile ( "C:detlog.txt" )

'Печатаеминформацию

Debug.Print "File last modified: "; fil.DateLastModified

Работа с Drives (Дисководами) и Folders (Папками)

Объектная модель FSO может программно работать с дисководами и папками, точно так, как Вы с Windows Explorer в интерактивном режиме. Вы можете копировать и перемещать папки, получать информацию относительно дисководов и папок, и т.д. Получение информации относительно Drives (Дисководов) Объект Drive позволяет Вам получать информацию относительно различных дисководов, присоединенных к системе или физически или через сеть. Свойства позволяют Вам получить информацию относительно:

Полный размера дисковода в байтах (свойство TotalSize);

Количество доступного свободного места на дисководе в байтах (свойства AvailableSpace или FreeSpace);

Буквенного обозначения дисковода (свойство DriveLetter);

Какого типа дисковод, сменный, фиксированный, сетевой, CD-ROM или RAM (свойство DriveType);

Серийный номер дисковода (свойство SerialNumber);

Тип файловой системы использования дисковода FAT, FAT32, NTFS, и т.д (свойство FileSystem);

Является ли дисковод доступен для использования (свойство IsReady);

Имя общих и/или Имя объемa (свойства ShareName и VolumeName);

Путь или корневую папку дисковода (свойства Path и RootFolder);

Пример использования объекта Drive (Дисковода)

Пример ниже показывается, как использовать объект Drive, чтобы получить полную информацию относительно дисковода. Не забудьте, что в следующем коде Вы не будете видеть ссылку к фактическому объекту Drive, достаточно, что Вы используете метод GetDrive чтобы получить ссылку для существующего объекта Drive (в этом случае - drv):

Private Sub Command3_Click()

Dim fso As New FileSystemObject, drv As Drive, s As String