www.ПЕРВЫЕ ШАГИ.ru :: Шаг 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).