Шаг 23 - Работа с каталогами

Первым делом определим откуда запущенно приложение. У обьекта Application есть свойства path, которое и позволит нам получить информацию.

Sub Test()

MsgBox (Application.Path)

End Sub

Команды создания и удаления каталогов очень похожи на DOS аналоги. Это MkDir и RmDir. Ниже создаем каталог на диске С.

Sub Test()

MkDir ("c:\test")

End Sub

И удаляем.

Sub Test()

RmDir ("c:\test")

End Sub

А вот теперь важный вопрос. Помещается ли удаленный каталог в корзину. Нет не помещается. Это очень возмутительно. Почему???? Ведь программа создана для Windows c использованием среды разработки от Microsoft и такое возмутительное безобразие. Ладно Linux им судья. Для того, чтобы убедиться в этом запустите следующий код и загляните в корзину.

Sub Test()

MkDir ("c:\test")

RmDir ("c:\test")

End Sub

Для получения текущего каталога есть функция CurDir.

Sub Test()

MsgBox (CurDir)

End Sub

Для того, чтобы сменить каталог тоже есть функция - chdir:

Sub Test()

ChDir ("c:\windows")

MsgBox (CurDir)

End Sub

Команда dir позволяет просмотреть все файлы в каталоге. Только использование её несколько специфично. Сначала Вы вызываете dir с параметрами и получаете первое имя файла, в дальнейшем можно вызвать её без параметров и получить следующее имя и так до тех пор, пока не вернется пустое имя файла.

Sub Test()

Dim s As String

s = Dir("c:\windows\inf\*.*")

Debug.Print s

Do While s <> ""

s = Dir

Debug.Print s

Loop

End Sub

Результат работы в Окне отладки (Ctrl-G).