在vfp编程中另存为对话框的程序如何写 15在vfp的运行中，要产生很多.dbf表文件，要通过一个对话框及时的询问操作者，把这些表存放在什么地方，通过操作者选择盘符和文件夹，使文件得以恰当的保存。谢谢zhangdaodong 老弟您的举例对于.dbf 效果欠佳，希望能补充说明倒数二行的delimited,及最后一行。我已调试通过，为使其他人免走弯路特说明如下，若是.dbf文件
除上边适当改动之外，最后一行应去掉，倒二行的。dilimited应去掉。 PUTFILE([cCustomText] [, cFileName] [, cFileExtensions])
返回值
字符型
参数
cCustomText
指定在“另存为 …”对话框上部显示的标题。
cFileName
指定在文本框中显示的默认文件名。
cFileExtensions
指定文件的扩展名。当清除“所有文件”复选框时，在“另存为 …”对话框的可滚动列表中，只显示具有指定扩展名的文件名。如果输入的文件名不包含扩展名，cFileExtensions 中的第一个扩展名会自动加到文件名上。有关 Visual FoxPro 中文件扩展名列表和相应的生成器类型，请参阅 文件扩展名与文件类型。
字符表达式 cFileExtensions 可以是下列某一形式:
cFileExtensions 可以包含单个的扩展名(例如 PRG)，只有带这个扩展名的文件名才被显示。
cFileExtensions 可以包含用分号分隔的文件扩展名列表。例如，如果包含 PRG;FXP，Visual FoxPro 将显示所有带 PRG 和 FXP 扩展名的文件名。
如果文件名具有相同的基本名，但扩展名不同(例如，CUSTOMER.PRG 和 CUSTOMER.FXP)，Visual FoxPro 所显示的文件是其扩展名在 cFileExtension 中位置靠前的文件。
cFileExtensions 可包含用竖线分隔的文件扩展名列表，例如 PRG|FXP。在这种情况下，即使文件有相同的基本名，Visual FoxPro 也把所有具有指定扩展名的文件名显示出来。
如果 cFileExtensions 只包含一个分号 (；)，Visual FoxPro 显示所有不带扩展名的文件名。
如果 cFileExtensions 是个空字符串，Visual FoxPro 显示当前目录中的所有文件名。
如果 cFileExtensions 包含 MS-DOS 通配符，例如问号 (?) 和星号 (*)，Visual FoxPro 显示所有扩展名符合通配符条件的文件名。例如，如果 cFileExtensions 包含 ?X?，扩展名为 .FXP，.EXE，.TXT 等等的文件都会显示。
备注
可以使用 PUTFILE( ) 选择现有的文件名或指定新文件名，PUTFILE( ) 返回一个文件名及其路径。如果不输入文件名，PUTFILE( ) 返回默认的文件名 (由 cFileName 指定) 和扩展名 (由 cFileExtensions 指定)；如果选定“取消”或按 ESC 键，PUTFILE( ) 返回一个空字符串。可以使用 PUTFILE( ) 返回的文件名命名一个文件并把它保存到磁盘上。
示例
下面的例子从任意用户选中的已存储表中创建一个分隔数据文件。getfile( ) 用来查找并打开一个表，putfile( ) 用来返回目标文件名。
gcTableName = GETFILE('DBF', 'Open Table:')
USE (gcTableName)
gcDelimName = ALIAS() + '.DLM'
gcDelimFile = PUTFILE('Delimited file:', gcDelimName, 'DLM')
IF EMPTY(gcDelimFile) && Esc pressed
Cancel
ENDIF
COPY TO (gcDelimFile) DELIMITED && Create delimited file
MODIFY FILE (gcDelimFile) NOEDIT |
