ник: Анатолий (Киев)
User-Defined type not defined
|
Видимо у вас Акс2000, там такого объекта нет.
Если имеется ввиду диалог выбора папки, то можно так:
Const Options = &H201 'Без кнопки "Новая папка" (1 - с кнопкой)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, DlgTitle, Options, RootFolder)
path = objFolder.Self.path 'В Win98 не работает
|