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

         

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


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

ЗадачаМетод
Создать папкуFileSystemObject.CreateFolder
Удалить папкуFolder.Delete или FileSystemObject.DeleteFolder
Переместить папкуFolder.Move или FileSystemObject.MoveFolder
Копировать папкуFolder.Copy или FileSystemObject.CopyFolder
Возвратить имя папкиFolder.Name
Выяснить, существует ли папка на дисководеFileSystemObject.FolderExists
Получить образец существующего объекта FolderFileSystemObject.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") ' Удаляем недавно созданную папку fso.DeleteFolder ("c:\Bogus") Debug.Print "Deleted folder C:\Bogus" End Sub

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