Работа с папками
Этот список показывает общие задачи работы с папками и методы для их выполнения:
| Задача | Метод |
| Создать папку | 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 ' Печатаем имя корневой папки 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
