Средства разработки приложений

         

Работа с дисководами и папками


Объектная модель 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

Содержание раздела