Как по событию открыть окно виндовой папки

Требуется по нажатию кнопки открыть папку, в стандартном виндовом окне. Путь к папке лежит в базе. Хотелось бы простым способом

В смысле, открыть в эксплорере?

shell("explorer.exe c:\Test")

Например так

shell "explorer D:\"

Toking

Например так shell "explorer D:\"

Что-то типа подобное, как через мой компьютер (не explorer) и как тогда объявлять библиотеки если это через API

Toking

Например так shell "explorer D:\"

Что-то типа подобное, как через мой компьютер (не explorer) и как тогда объявлять библиотеки если это через API

Diroled

Что-то типа подобное, как через мой компьютер (не explorer) и как тогда объявлять библиотеки если это через API

Это как раз explorer и есть. А функция shell, встроенная. Ее объявлять не нужно.

AndrewNico

Diroled Что-то типа подобное, как через мой компьютер (не explorer) и как тогда объявлять библиотеки если это через API Это как раз explorer и есть. А функция shell, встроенная. Ее объявлять не нужно.

работает, но немного не то, хотелось бы теперь наверно чтобы это было окно наверно в интерфейсе моем было, и я там мог открывать папки. ну что-то типа диалога открытия файла, а открывали их word и ексель.

Access -> F1 -> FileDialog

Toking

Access -> F1 -> FileDialog

Не работает, может чего забыл?

Dim dlgOpen As Office.FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
dlgOpen.Show

Выдает ошибку, "User - defined type not defined"
не понимает тип FileDialog, может чего-то не хватает

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)

With dlgOpen
.AllowMultiSelect = True
.Show
End With