GETFILE() 函 数

显示 打开 对话框 并返回选定文件的名称

语 法

GETFILE([ cFileExtensions] [, cText ] [, cOpenButtonCaption ] [, nButtonType ] [, cTitleBarCaption ])

返 值 类 型

字符型

参 数 描 述

cFileExtensions

指 定 没 有 选 择 所 有 文 件 菜 单 项 时 可 滚 动 列 表 中 显 示 的 文 件 扩 展 名

cFileExtensions 可具有多种形式

• 如

  果 cFileExtensions 包 含 单 一 扩 展 名 例 如 .PRG 只 显 示 具 有 此 扩 展名 的 文 件

• 如

  果 cFileExtensions 为 空 字 符 串 并 且 不 包 含 cCreatorType 子 句 则 显 示当 前 目 录 下 的 所 有 文 件

• cFileExtensions

  也 可 以 包 含 通 配 符 * 和 ? 此 时 将 显 示 扩 展 名 满 足 通 配

符 条 件 的 所 有 文 件 例 如 如 果 cFileExtensions 为 '?X?' 则 显 示 扩 展 名

• 在

  V isual FoxPro for Windows 中 cFileExtensions 可 以 包 含 一 个 文 件 说明 后 面 带 有 一 个 或 一 列 用 逗 号 分 隔 的 扩 展 名 这 个 文 件 说 明 出 现 在 文件 类 型 列 表 框 中 使 用 一 个 冒 号 ( :) 将 文 件 说 明 和 扩 展 名 分 开 使 用 分号 (;) 将 多 个 文 件 说 明 和 它 们 的 扩 展 名 分 开

例 如 如 果 cFileExtensions 是 "Text:TXT" 则 文 件 说 明 "Text" 出 现 在文 件 类 型 列 表 框 中 而 且 显 示 所 有 具 有 .txt 扩 展 名 的 文 件

如 果 cFileExtensions 是 "Tables:DBF; Files:TXT,BAK" 则 文 件 说 明"Tables" 和 "Files" 出 现 在 文 件 类 型 列 表 框 中 当 从 文 件 类 型 列 表框 中 选 择 "Tables" 时 则 显 示 所 有 具 有 .dbf 扩 展 名 的 文 件 当 从 文 件 类型 列 表 框 中 选 择 "Files" 时 则 显 示 所 有 具 有 .txt 和 .bak 扩 展 名 的 文

件 .

• 如

  果 cFileExtensions 只 包 含 分 号 (;) 则 显 示 所 有 不 带 扩 展 名 的 文 件

cText

指 定 打 开 对 话 框 中 目 录 列 表 的 文 本 在 W indows 95 中 该 文 本 显 示 在文 件 列 表 下 面 而 且 长 文 本 字 符 串 可 能 会 被 截 短

cOpenButtonCaption

为 确 定 按 钮 指 定 标 题

nButtonType

指 定 出 现 在 打 开 对 话 框 中 按 钮 的 数 目 与 类 型 当 nButtonType 等 于 0 1

或 2 时 在 对 话 框 中 分 别 出 现 下 列 按 钮

nButton 按 钮

Type

如果 nButtonType 等于 1 而用户选择了 新建 按钮 此函数返回在 打开 对话框中指定的路径与 尚未命名 如 果 nButtonType 等于 2 而用户选定了 无 按钮 函数返回空字符串

cTitleBarCaption

指定标题栏标题

说 明

如果按 ESC 键 选择 取消 按钮 或者从 控制 菜单上选择 关闭 退出 打开 对话框 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

请 参 阅

FULLPATH(), GETEXPR, GETPICT(), LOCFILE(), PUTFILE()