Function ShellFolder(byRef NameDialog as string, ByRef DefaultFolder as String, ByVal FlagOption As Integer=BIF_RETURNONLYFSDIRS Or BIF_USENEWUI) as String
Диалоговое окно, выводящее все каталоги(диски,папки) компьютера. Взят практически готовый из примеров к Freebasic
NameDialog - сообщение в рамке окна
DefaultFolder - каталог по умолчанию
FlagOption - флаг, может быть (только основные, остальные ЗДЕСЬ):
BIF_BROWSEFORCOMPUTER (4096) - разрешает пользователю выбирать только компьютеры сетевого окружения.
BIF_BROWSEFORPRINTER (8192) - то же самое с принтерами
BIF_DONTGOBELOWDOMAIN (2)- не выходить из домена сети
BIF_RETURNFSANCESTORS (8)- возвращать только системные подпапки
BIF_RETURNONLYFSDIRS (1)- возвращать только системные папки
BIF_BROWSEINCLUDEFILES (16384)- включает в просмотр файлы
BIF_USENEWUI (80)- новый интерфейс пользователя
Windows
#Include "Window9.bi"
? ShellFolder( "Select Folder", "C:\")
sleep
Created with the Personal Edition of HelpNDoc: Free PDF documentation generator