代码如下:
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。
--------------------------------------------------------------------------------------------------------------------------------------
