如何从公共对话框控件中提取多个文件名称
代码如下:
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。 |
--------------------------------------------------------------------------------------------------------------------------------------
