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

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 (Папками)

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

Создать папку - FileSystemObject.CreateFolder

Удалитьпапку - Folder.Delete или FileSystemObject.DeleteFolder

Переместитьпапку - Folder.Move или FileSystemObject.MoveFolder

Копироватьпапку - Folder.Copy или FileSystemObject.CopyFolder

Возвратить имя папки - Folder.Name

Выяснить, существует ли папка на дисководе - FileSystemObject.FolderExists

Получить образец существующего объекта - Folder FileSystemObject.GetFolder

Выяснить имя папки, родителя папки - FileSystemObject.GetParentFolderName

Выяснить путь системных папок - FileSystemObject.GetSpecialFolder

Этот пример показывает использование объектов 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