如何从公共对话框控件中提取多个文件名称

代码如下:

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。

--------------------------------------------------------------------------------------------------------------------------------------