vfp的getfile()问题
请教各位：
vfp的getfile()对话框中每次只能选中一个文件，
有什么方法可以选中很多文件，对话框中“文件名”
显示这些被选中文件的文件名.我想待对话框返回后
程序再集中处理这些文件。
谢谢
[解决办法]
obj=Createobject("MSComDlg.CommonDialog.1")
obj.Flags=524288 + 512 + 4
obj.Filter="文件类型(*.dbf)|*.dbf"
obj.FileName="d:\test\"+"请选择文件(可以拖动鼠标多选)"
obj.maxFileSize=10000
obj.ShowOpen()
Self=obj.FileName+Chr(0)
?Self
[解决办法]
CommonDialog 控件
CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。
语法
CommonDialog
说明
CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态链接库 ommdlg.dll. 的例程之间提供了一个接口。为了用这个控件创建一个对话框，ommdlg.dll. 必须在 Microsoft Windows 的 SYSTEM 目录下。
在应用程序中要使用 CommonDialog 控件，可将其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog 控件是以图标的形式显示在窗体中。该图标的大小不能改变。
使用指定的方法，CommonDialog 控件能够显示下列对话。
方法 所显示的对话框
ShowOpen 显示“打开”对话框
ShowSave 显示“另存为”对话框
ShowColor 显示“颜色”对话框
ShowFont 显示“字体”对话框
ShowPrinter 显示“打印”或“打印选项”对话框
ShowHelp 调用 Windows 帮助引擎
在对话框接口上单击，CommonDialog 控件将自动提供与上下文有关的帮助：
单击标题栏中的“这是什么？”帮助按钮，然后单击想详细信息的项目。
将鼠标放在想进一步详细信息的项目上，单击右键，然后在所显示的上下文菜单中选择这是什么命令。
操作系统提供在 Windows 95 帮助弹出中显示的文本。也可以通过设置 Flags 属性，在带有 CommonDialog 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。
注意 无法指定对话框显示在什么地方。
详细信息 要查看各对话的帮助主题，单击“请参阅”。
下例显示“打开”对话框然后在信息框中显示所选的文件名：
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub
参考资料：MSDN
[解决办法]
公用对话框控件（CommonDialog）公用对话框控件（CommonDialog） 功用对话框控件提供了Windows系统的标准对话框！例如打开文件、保存文件、设置打印机、选择字体和选择颜色。该控件 还可以在运行Windows帮助引擎情况下显示帮助信息。这个控件有点儿特殊性，因为他的支持文件是Commdlg.dll。该控件的5个属性页：Open/Save As属性页、Color属性页、Font属性页、Print属性页和Help属性页。公用对话框空间在采用不同的方法时可以显示几种不同的对话框：方法 对话框类型-------------------------------------------ShowOpen 显示打开文件对话框ShowSave 显示保存文件对话框ShowColor 显示颜色设置对话框ShowFont 显示字体设置对话框ShowPrinter 显示打印和打印设置对话框ShowHelp 激活Windows帮助引擎-------------------------------------------公用对话框的属性1。Action属性 该属性在设计阶段不能使用，只能在运行阶段才能用来设置功用对话框的显示形式。格式： 表单.公用对话框名.Action=值(0-6) 0-没有Action属性 1-文件打开对话框 2-文件保存对话框 3-颜色对话框 4-字体对话框 5-打印机对话框 6-运行WINHELP32.EXE2。DialogTitle属性 该属性在Open/Save As页中，返回和设置对话框标题栏中的字符串。格式： 表单.公用对话框名.DialogTitle=标题字符串 注意：当显示的对话框为Color、Font和Print对话框时，公用对话框控件将忽略该设置。3。DefaultExt属性 该属性在Open/Save As页中，为对话框设置缺省的扩展文件名。格式： 表单.公用对话框名.DefaultExt=字符串 说明： 该字符串就指定了缺省的扩展文件名。4。Filter属性 该属性在Open/Save As页中，返回和设置对话框中文件类型列表框中的过滤条件。格式： 表单.公用对话框名.Filter[=description | filter1 | description2 | filter2……] 说明： description显示表达文件类型的字符串，filter指定特定的文件的扩展名。 说明举例： thisform.commondlg1.Filter=Text(*.txt) | *.txt | Pictures(*.bmp;*.ico) | *.bmp;*.ico 不知道这样例子能不能使你明白。5。InitDir属性 该属性在Open/Save As页中，返回和设置初始文件目录！格式： 表单.公用对话框名.InitDir=字符串 其中的字符串指定初始文件目录，如果你使用变量引用的话，别忘了'\'6。FontBold属性 该属性在Font页中，设置或返回是否选定“粗体”。格式： 表单.公用对话框名.FontBold=逻辑值 (.t.或者.f.)7。FontItalic属性 该属性在Font页中，设置或返回是否选定“斜体”。格式： 表单.公用对话框名.FontItalic=逻辑值 (.t.或者.f.)8。FontStrikethru属性 该属性在Font页中，设置或返回是否选定删除线。格式： 表单.公用对话框名.FontStrikethru=逻辑值(.t.或者.f.)9。FontUnderline属性 该属性在Font页中，设置或返回是否选定下划线。格式： 表单.公用对话框名.FontUnderline=逻辑值(.t.或者.f.)10。FontName属性 该属性在Font页中，设置或返回选定的字体名称。格式： 表单.公用对话框名.FontName=值 说明： “值”只能选择字体名称。11。FontSize属性 该属性在Font页中，设置或返回选定的字体的大小。格式： 表单.公用对话框名.FontSize=值 说明： 这里的“值”当然也只能选择正确的字体大小。12。Copies属性 该属性在Print页中，设置或返回要打印的份数。格式： 表单.公用对话框名.Copies=数值（必须大于0，且为整数）13。FromPage属性 该属性在Print页中，设置或返回要打印的起开始页。格式： 表单.公用对话框名.FromPage=数值（必须大于0，且为整数）14。ToPage属性 该属性在Print页中，设置或返回要打印的结束页。格式： 表单.公用对话框名.ToPage=值（必须大于0，且为整数）15。Orientation属性 该属性在Print页中，设置或返回页面定向。格式： 表单.公用对话框名.Orientation=值 说明“值”的范围： 1-cdPortrait 画像类型 2-cdLandscape 风景类型 16。HelpContext属性 该属性在Help页中，设置或返回帮助上下文。格式： 表单.公用对话框名.HelpContext=字符串 17。HelpKey属性 该属性在Help页中，设置或返回帮助关键字。格式： 表单.公用对话框名.HelpKey=字符串18。HelpFile属性 该属性在Help页中，设置或返回帮助文件。格式： 表单.公用对话框名.HelpFile=字符串公用对话框的方法：最主要的有：ShowOpen方法、ShowSave方法、ShowColor方法、ShowPrinter方法、ShowFont方法、ShowHelp方法。他们的格式都相同： 表单.公用对话框名.方法使用方法也很简单，结合后面的例子看看吧。简单例子建立一个表单commdlog1.scx，向其中添加一个公用对话框控件commdlog，然后添加一个命令按钮command1和一个标签label1（标签用于显示用户选择的文件名称，命令按钮command1的click事件中： PROCEDURE command1.click thisform.commdlog.filename="*.*" thisform.commdlog.filter="Text(*.txt) | *.txt | Picrure(*.bmp) | *.bmp | Program(*.prg) | *.prg" thisform.commdlog.showopen() thisform.label1.caption="指定的文件："+allt(thisform.commdlog.filename) ENDPROC<完>看看运行的结果是什么样的吧~~打印对话框的例子本来就想写一个就够了，不过我想这个可能用的应该是最广泛和最需要的。建立表单的一系列过程我就不多说了，跟上面的例子一样!主要还是command1的Click事件： PROCEDURE command1.Click thisform.commdlog.showprinter beginpage=thisform.commdlog.frompage endpage=thisform.commdlog.toppage numcopies=thisofrm.commdlog.copies orientation=thisform.commdlog.orientation *!*关键的开始了! for i=1 to numcopies &&这里你就设置自己的代码了，把数据发送给打印机或着预览窗口。 endfor ENDPROC<完>这时候你在看看VFP控制打印机的能力吧~~
