代码如下:
Private Sub Command1_Click()
Dim i As Integer, title As String, FileNames As String
With CommonDialog1
.FileName = ""
.Filter = "All Files|*.*" '过滤器指定在对话框的文件列表框中显示的文件的类型
.Flags = &H200 '允许多重选择。
.Action = 1
i = InStrRev(.FileName, "\")'
title = Left(.FileName, i)' 目录
FileNames = Mid(.FileName, i + 1)' all selectes files
End With
FileNames = Replace(FileNames, Chr(32), vbCrLf)
MsgBox FileNames, vbYesNo, title '显示对话框
End Sub
说明(摘自MSDN):
-------------------------------------------------------------------------------------------------------------------------------
flags属性:
| cdlOFNAllowMultiselect |
&H200 |
它指定文件名列表框允许多重选择。
运行时，通过按 SHIFT 键以及使用 UP ARROW 和 DOWN ARROW 键可选择多个文件。作完此操作后，FileName 属性就返回一个包含全部所选文件名的字符串。串中各文件名用空格隔开。 |
| cdlOFNCreatePrompt |
&H2000 |
当文件不存在时对话框要提示创建文件。该标志自动设置 cdlOFNPathMustExist 和 cdlOFNFileMustExist 标志。 |
| cdlOFNExplorer |
&H80000 |
它使用类似资源管理器的打开一个文件的对话框模板。适用于 Windows 95 和 Windows NT 4.0。 |
| CdlOFNExtensionDifferent |
&H400 |
它指示返回的文件扩展名与 DefaultExt 属性指定的扩展名不一致。如果 DefaultExt 属性是 Null，或者扩展相匹配，或者没有扩展时，此标志不设置。当关闭对话框时，可以检查这个标志的值。 |
| cdlOFNFileMustExist |
&H1000 |
它指定只能输入文件名文本框已经存在的文件名。如果该标志被设置，则当用户输入非法的文件名时，要显示一个警告。该标志自动设置 cdlOFNPathMustExist 标志。 |
| cdlOFNHelpButton |
&H10 |
使对话框显示帮助按钮。 |
| cdlOFNHideReadOnly |
&H4 |
隐藏只读复选框。 |
| cdlOFNLongNames |
&H200000 |
使用长文件名。 |
| cdlOFNNoChangeDir |
&H8 |
强制对话框将对话框打开时的目录置成当前目录。 |
| CdlOFNNoDereferenceLinks |
&H100000 |
不要间接引用外壳链接（也称作快捷方式）。缺省时，选取外壳链接会引起它被外壳间接引用。 |
| cdlOFNNoLongNames |
&H40000 |
无长文件名。 |
| CdlOFNNoReadOnlyReturn |
&H8000 |
它指定返回的文件不能具有只读属性，也不能在写保护目录下面。 |
| cdlOFNNoValidate |
&H100 |
它指定公共对话框允许返回的文件名中含有非法字符。 |
| cdlOFNOverwritePrompt |
&H2 |
使“另存为”对话框当选择的文件已经存在时应产生一个信息框，用户必须确认是否覆盖该文件。 |
| cdlOFNPathMustExist |
&H800 |
它指定只能输入有效路径。如果设置该标志，输入非法路径时，应显示一个警告信息。 |
| cdlOFNReadOnly |
&H1 |
建立对话框时，只读复选框初始化为选定。该标志也指示对话框关闭时只读复选框的状态。 |
| cdlOFNShareAware |
&H4000 |
它指定忽略共享冲突错误。 |
Action 属性:
| 0 |
没有操作。 |
| 1 |
显示“打开”对话框。 |
| 2 |
显示“另存为”对话框。 |
| 3 |
显示“颜色”对话框。 |
| 4 |
显示“字体”对话框。 |
| 5 |
显示“打印”对话框。 |
| 6 |
运行 WINHLP32.EXE。 |
--------------------------------------------------------------------------------------------------------------------------------------