Question

如何在visual foxpro6中建立一个那种选择文件夹然后点确定返回一个地址字符串的控件

Answer 1

显示“打开”对话框。

GETFILE([cFileExtensions] [, cText] [, cOpenButtonCaption]
[, nButtonType] [, cTitleBarCaption])
参数
cFileExtensions
指定没有选择“所有文件”菜单项时，可滚动列表中显示的文件扩展名。如果传递一个文本值, 将它括在引号("")中。文件扩展名前不要带点号(.)
注意：
cFileExtensions 参数在长度上不能超过 254 字符。
cFileExtensions 可具有多种形式:
如果 cFileExtensions 包含单一扩展名，例如 "prg"，只显示具有此扩展名的文件。
如果 cFileExtensions 是空串, 则打开对话框显示当前目录中的所有文件。
cFileExtensions 也可以包含通配符 * 和 ?。所有文件扩展名符合通配符条件的都显示。例如, 如果
cFileExtensions 是 "X", 则打开对话框显示所有文件扩展名为 .fxp, .exe, 和 .txt 。
cFileExtensions
可以包含一个文件说明，后面带有一个或一列用逗号分隔的扩展名。这个文件说明出现在“文件类型”列表框中。使用一个冒号 (:) 将文件说明和扩展名分开。使用分号
(;) 将多个文件说明和它们的扩展名分开。
例如，如果 cFileExtensions 是 "Text:TXT"，则文件说明 "Text"
出现在“文件类型”列表框中，而且显示所有具有 .txt 扩展名的文件。
如果 cFileExtensions 是 "Tables:DBF;
Files:TXT,BAK"，则文件说明"Tables" 和 "Files" 出现在“文件类型”列表框中。当从“文件类型”列表框中选择 "Tables"
时，则显示所有具有 .dbf 扩展名的文件。当从“文件类型”列表框中选择 "Files" 时，则显示所有具有 .txt 和 .bak 扩展名的文件。
如果 cFileExtensions 只包含分号 (";")，则显示所有不带扩展名的文件。
cText
指定“打开”对话框中目录列表的文本。
cOpenButtonCaption
为“确定(OK)”按钮指定标题。
nButtonType
指定出现在“打开”对话框中按钮的数目与类型。
0 ((或省略)
确定(OK),取消(Cancel)
1
确定(OK), 新建(New),取消(Cancel)
2
确定(OK), 无(None), 取消(Cancel)
注意：
如果 nButtonType 等于
1，而用户选择了“新建(New)”按钮，此函数返回在“打开”对话框中指定的路径与“尚未命名(Untitled)”。如果 nButtonType
等于 2 而用户选定了“无”按钮，函数返回空字符串。
cTitleBarCaption
指定对话框标题栏标题。
返回值
字符型。如果按 ESC 键、选择“取消(Cancel )”按钮，或者从控件菜单上选择“关闭”退出“打开”对话框，GETFILE()
函数将返回空字符串。
示例
CLOSE DATABASES
SELECT 0
gcTable=GETFILE('DBF', 'Browse or Create a .DBF:',
'Browse', 1, 'Browse or Create')
DO CASE
CASE 'Untitled' $ gcTable
CREATE (gcTable)
CASE EMPTY(gcTable)
RETURN
OTHERWISE
USE (gcTable)
BROWSE
ENDCASE

显示 “选择目录”对话框(Select
Directory dialog box) ，从中可以选择目录或文件夹。
GETDIR([cDirectory [, cText [, cCaption [, nFlags [, lRootOnly]]]]])　
参数
cDirectory

指定在“选择目录”对话框中初始显示的目录或文件夹。如果没有指定 cDirectory，“选择目录”对话框打开时，将显示 Visual
FoxPro 默认目录或文件夹。
cText

指定显示在对话框中目录列列上的文本。
cCaption

指定对话框的标题。默认为 "选择目录(Select Directory)"。
nFlags

为对话框指定选项。nFlags 可以包含 0 或额外的值的组合。下表包括一些更常见的选项。 更详细的信息，请参见 MSDN中的
SHBrowseForFolder 。　
nFlag
值
1 BIF_RETURNONLYFSDIRS
只返回文件系统目录 (物理位置)。如果用户选择的文件夹不是文件系统的一部分, 确定(OK)按钮是灰色的。
2 BIF_DONTGOBELOWDOMAIN
在 tree view 控件中不包括网络文件夹下面的域名级 (例如, 我的电脑[My Computer] 和 我的网络[My
Networks])。
8 BIF_RETURNFSANCESTORS
只返回文件系统的祖先。如果用户选择了任何其它非文件系统的祖先,确定(OK)按钮是灰色的。
16 BIF_EDITBOX
浏览对话框包括一个编辑控件让用户可以打入一个项的名称。Windows 98 及以上版本, 或 Internet Explorer 4.0 及以上
(假定选定了 shell integration 选项)可用。要求 4.71 版的 shell32.dll。
32 BIF_VALIDATE
验证 editbox 内容。如果使用了 editbox, 就需要验证用户输入的内容。如果用户在编辑框中输入了一个非法的名称,
取消(Cancel)按钮变成唯一可选。该标记在 BIF_EDITBOX 未指定时被忽略。
64 BIF_NEWDIALOGSTYLE
使用新的用户界面。设置该标记为用户提供一种较大的, 可调整大小的对话框。其它功能包括: 在对话框中的拖放功能, 重排序, 上下文相关菜单, 新建文件夹,
删除和其它上下文相关菜单命令。仅支持 Windows 2000 及以上。要求 5.00 版的 shell32.dll。
16384 BIF_BROWSEINCLUDEFILES
浏览器对话框象文件夹一样显示文件。Windows 98 及以上版本, 或 Internet Explorer 4.0 或以上 (假定选定了 shell
integration 选项)可用。要求 4.71 版的
shell32.dll。
lRootOnly

指定只显示 cDirectory 及其子目录。该参数防止向上定位到要文件夹目录。如果没有指定 cDirectory,
就使用默认目录(SET DEFAULT 的值)。
返回值 字符型
解释
GETDIR( ) 函数返回选定目录或文件夹名称的字符串。
如果没有选择目录或文件夹(选择“取消(Cancel)”、按 ESC 键或从控件菜单上选择“关闭”)，GETDIR( )
函数将返回空字符串。
自 Visual FoxPro 7 开始, GETDIR() 支持两种不同的对话框。如果你提供少于三个参数, GETDIR()
返回早期版本的对话框。如果提供大于两个参数, Visual FoxPro 使用 Win32 API 中的 SHBrowseForFolder
例程来显示对话框。

你需要的一定是这个