По крайней мере лучший из тех что я видел.
' *** Модифицированная функция fBrowseForFolder. Получает на вход следующие аргументы:
' ***
' *** hWnd_Owner - hWnd вызывающего объекта,
' *** sPrompt - текст подсказки,
' *** WhatBr - комбинация (через OR) элементов перечислителя WhatBrowse,
' *** DialogTitle - пользовательский заголовок диалога
' *** initDir - начальная папка обзора (если не задана, то "Мой компьютер"),
' *** fileMasks - файловые маски, разделённые символом «pipe» (*.doc|*.dot и т.п.);
' *** если эта строка задана, то папку можно выбрать только если она
' *** содержит файлы, удовлетворяющие заданным маскам)
' *** ChangeSize - увеличивать ли размер диалога; если "да", то надо указать RatioX и RatioY
' *** RatioX - во сколько раз увеличивать ширину диалога (принимается во внимание, если ChangeSize = True)
' *** RatioY - во сколько раз увеличивать высоту диалога (принимается во внимание, если ChangeSize = True)
' *** CenterOnScreen - центрировать ли диалог на экране
' *** TopMost - если = True, то диалог будет поверх всех открытых окон
а цегла де? де цегла?