Dialog.SelectDirectory (gb.qt4)
Static Function SelectDirectory ( ) As Boolean
调用标准文件对话框，获得一个已经存在的目录名。
如果用户点击“取消”按钮，返回
TRUE。
如果用户点击“确定”按钮，返回
FALSE。
该示例列出用户选择的目录下的所有文件。如果用户取消对话框，无列表显示。
Examples
PUBLIC SUB ButtonDirectory_Click()
DIM fileName AS String
IF Dialog.SelectDirectory() THEN RETURN
FOR EACH fileName IN Dir(Dialog.Path)
PRINT Dialog.Path &/ fileName
NEXT
END