FSO – тяжелая артеллерия VB6

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

Объектная модель FSO может программно работать с дисководами и папками, точно так, как Вы с Windows Explorer в интерактивном режиме. Вы можете копировать и перемещать папки, получать информацию относительно дисководов и папок, и т.д. 

Получение информации относительно Drives (Дисководов) 

• Полный размера дисковода в байтах (свойство 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

   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

Работа с Folders (Папками)

Этот список показывает общие задачи папки и методы для выполнения их:

Этот пример показывает использование объектов Folder и FileSystemObject, чтобы управлять папками и получать информацию о них:

Private Sub Command10_Click()

   'Получаем образец FileSystemObject

   Dim fso As New FileSystemObject, fldr As Folder, s As String

   ' Объект Get Drive

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

   ' Печатаем родительское имя папки

   Debug.Print "Parent folder name is: " & fldr

   ' Печатаем имя дисковода

   Debug.Print "Contained on drive " & fldr.Drive

   ' Печатаем имя корневой папки

   If fldr.IsRootFolder = True Then

      Debug.Print "This folder is a root folder."

   Else

      Debug.Print "This folder isn't a root folder."

   End If

   ' Создаем новую папку объектом FileSystemObject

   fso.CreateFolder ("c:Bogus")

   Debug.Print "Created folder C:Bogus"

   ' Печатаем основное имя папки

   Debug.Print "Basename = " & fso.GetBaseName("c:bogus")

   ' Удаляем недавно созданную папку

   fso.DeleteFolder ("c:Bogus")

   Debug.Print "Deleted folder C:Bogus"

End Sub

Продолжение

 Предыдущая