Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Выяснить, существует ли папка на дисководе - 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

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

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")

Рекомендуем скачать другие рефераты по теме: товар реферат, доклад по обж.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата