Работа с дисководами и папками
Объектная модель FSO может работать с дисководами и папками точно так же, как вы работаете с ними с помощью Windows Explorer в интерактивном режиме, т.е. вы можете копировать и перемещать файлы, получать информацию относительно дисководов и папок, и т.д.
Получение информации о дисководах
Объект Drive позволяет вам получать информацию о различных дисководах, присоединенных к системе или физически или через сеть. Его свойства позволяют Вам получить следующую информацию:
- полный размера дисковода в байтах (свойство TotalSize);
- количество доступного свободного места на дисководе в байтах (свойства AvailableSpace или FreeSpace);
- буквенное обозначение дисковода (свойство DriveLetter);
- тип дисковода: сменный, фиксированный, сетевой, CD-ROM или виртуальный (свойство DriveType);
- серийный номер дисковода (свойство SerialNumber);
- тип файловой системы, используемой на носителе: FAT, FAT32, NTFS и т.д. (свойство FileSystem);
- готов ли дисковод для использования (свойство IsReady);
- имя ресурсов общего доступа и метку диска (свойства ShareName и VolumeName);
- путь к устройству или его корневой папке (свойства Path и RootFolder).
Пример использования объекта Drive (Дисковод)
На пример ниже показывается как использовать объект Drive, чтобы получить полную информацию о дисководе. Не забудьте, что в следующем коде все обращения к фактическому объекту Drive осуществляются с помощью переменной drv, содержащей ссылку на объект, которая получена с помощью метода GetDrive:
Private Sub Command3_Click() Dim fso As New FileSystemObject, drv As Drive, s As String Set drv = fso.GetDrive(fso.GetDriveName("c:")) s = "Drive " & UCase("c:") & " - " s = s & drv.VolumeName & vbCrLf s = s & "Total Space: " & FormatNumber(drv.TotalSize/1024, 0) s = s & " Kb" & vbCrLf s = s & "Free Space: " & FormatNumber(drv.FreeSpace/1024, 0) s = s & " Kb" & vbCrLf MsgBox s End Sub