从公共对话框控件中提取多个文件名称 在Visual Basic程序中,公共文件对话框控件让用户很容易选取 一个或多个文件。本文将介绍如何从公共对话框控件中提取所选择的 文件名称。 使用公共对话框控件 Visual Basic的公共文件对话框控件允许程序员为用户提供对硬 盘上的目录和文件结构进行访问的功能。例如,如果用户需要选择一 个文本文件,可以显示出一个公共文件对话框控件,以允许用户浏览各 个目录,直至找到需要的文件位置。 通过将公共对话框控件的Flags属性设置为常量值OFN_ALLOWMULT ISELECT,可以使用户能够选择几个文件以进行工作。可以通过在按住 Ctrl键的同时单击每个文件名称来选中多个文件,这些被选中的文件 名称将被高亮显示。 为了使程序能够针对用户所选择的文件进行工作,需要从控件的F ilename属性中提取每个文件的名称。所有被用户选中的文件名称都 被作为一个长字符串而存储在该属性中。每个文件名称之间用一个空 格字符分开。 可以使用InStr函数来搜索分界的空格字符,以从公共对话框的Fi lename属性中提取每个文件名称。该InStr函数返回在Filename属性 字符串中空格字符的位置,得到空格字符的位置后,就可以使用Mid函 数来将独立的文件名称从该字符串中移出。 样例程序 该程序显示了如何提取在公共文件对话框控件中所有被选中的文 件名称。 步骤如下: 1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。 2.在Form1上添加一个公共对话框控件,采用缺省的方法建立Comm onDialog1。 3.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。 4.在Form1上添加第二个文本框控件,采用缺省的方法建立Text2 。将它的MultiLine 属性设置为True。 5.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comand 1。将它的Caption 属性设置为"打开文件对话框"。 6.将如下代码添加到Command1的单击事件中: Private Sub Command1_Click() Dim I As Integer Dim Y As Integer Dim Z As Integer Dim FileNames$() Const OFN_ALLOWMULTISELECT = &H200& CommonDialog1.filename = "" CommonDialog1.Filter = "All Files|*.*" CommonDialog1.Flags = OFN_ALLOWMUL- SELECT CommonDialog1.Action = 1 CommonDialog1.filename = CommonDialog1. filename & Chr(3 2) Z = 1 For I = 1 To Len(CommonDialog1.filename) I = InStr(Z, CommonDialog1.filename, Chr(32)) If I = 0 Then Exit For ReDim Preserve FileNames(Y) FileNames(Y) = Mid(CommonDialog1.filename, Z, I - Z) Z = I + 1 Y = Y + 1 Next If Y = 1 Then Text1.Text = FileNames(0) Else Text 2.Text = "" For I = 0 To Y - 1 If I = 0 Then Text1.Text = FileNames(I) Else Text2.Text = Text2.Text & UCase(FileNames(I)) & Chr$(13) & Chr$(10) End If Next End If End Sub 按下F 5运行本程序,单击命令按钮。公共文件对话框控件将被显 示在屏幕上。然后,从文件列表中选择几个文件名称,这可以通过在按 住Ctrl或Shift键的同时单击文件的名称来实现,如图1所示。在选择 了适当的文件之后,单击确定(OK),则文件名称将被显示在第二个文本 框控件中,而目录的名称将被显示在第一个文本框控件中
从公共对话框控件中提取多个文件名称
在Visual Basic程序中,公共文件对话框控件让用户很容易选取 一个或多个文件。本文将介绍如何从公共对话框控件中提取所选择的 文件名称。
使用公共对话框控件
Visual Basic的公共文件对话框控件允许程序员为用户提供对硬 盘上的目录和文件结构进行访问的功能。例如,如果用户需要选择一 个文本文件,可以显示出一个公共文件对话框控件,以允许用户浏览各 个目录,直至找到需要的文件位置。
通过将公共对话框控件的Flags属性设置为常量值OFN_ALLOWMULT ISELECT,可以使用户能够选择几个文件以进行工作。可以通过在按住 Ctrl键的同时单击每个文件名称来选中多个文件,这些被选中的文件 名称将被高亮显示。
为了使程序能够针对用户所选择的文件进行工作,需要从控件的F ilename属性中提取每个文件的名称。所有被用户选中的文件名称都 被作为一个长字符串而存储在该属性中。每个文件名称之间用一个空 格字符分开。
可以使用InStr函数来搜索分界的空格字符,以从公共对话框的Fi lename属性中提取每个文件名称。该InStr函数返回在Filename属性 字符串中空格字符的位置,得到空格字符的位置后,就可以使用Mid函 数来将独立的文件名称从该字符串中移出。
样例程序
该程序显示了如何提取在公共文件对话框控件中所有被选中的文 件名称。
步骤如下:
1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。
2.在Form1上添加一个公共对话框控件,采用缺省的方法建立Comm onDialog1。
3.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。
4.在Form1上添加第二个文本框控件,采用缺省的方法建立Text2 。将它的MultiLine 属性设置为True。
5.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comand 1。将它的Caption 属性设置为"打开文件对话框"。
6.将如下代码添加到Command1的单击事件中:
Private Sub Command1_Click()
Dim I As Integer
Dim Y As Integer
Dim Z As Integer
Dim FileNames$()
Const OFN_ALLOWMULTISELECT = &H200&
CommonDialog1.filename = ""
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.Flags = OFN_ALLOWMUL- SELECT
CommonDialog1.Action = 1
CommonDialog1.filename = CommonDialog1. filename & Chr(3 2)
Z = 1
For I = 1 To Len(CommonDialog1.filename)
I = InStr(Z, CommonDialog1.filename, Chr(32))
If I = 0 Then Exit For
ReDim Preserve FileNames(Y)
FileNames(Y) = Mid(CommonDialog1.filename, Z, I - Z)
Z = I + 1
Y = Y + 1
Next
If Y = 1 Then
Text1.Text = FileNames(0)
Else
Text 2.Text = ""
For I = 0 To Y - 1
If I = 0 Then
Text1.Text = FileNames(I)
Else
Text2.Text = Text2.Text & UCase(FileNames(I)) & Chr$(13) & Chr$(10)
End If
Next
End If
End Sub
按下F 5运行本程序,单击命令按钮。公共文件对话框控件将被显 示在屏幕上。然后,从文件列表中选择几个文件名称,这可以通过在按 住Ctrl或Shift键的同时单击文件的名称来实现,如图1所示。在选择 了适当的文件之后,单击确定(OK),则文件名称将被显示在第二个文本 框控件中,而目录的名称将被显示在第一个文本框控件中
文件夹*第一个文件名*第二个文件名*...解析一下就可以了
Flags 属性（“打开”、“另存为”对话框）
为“打开”和“另存为”对话框返回或设置选项。语法object.Flags [= value]Flags 属性语法有下列部分：部分 描述
object 对象表达式，其值是“应用于”列表中的对象。
value 如“设置值”中所描述，是为“打开”和“另存为”对话框指定选项的常数或值。
设置值Value 的设置值是：常数 值 描述
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 它指定忽略共享冲突错误。
说明cdlOFNExplorer 和 cdlOFNNoDereferenceLinks 标志适用于 Windows 95 和 Windows NT 4.0。Windows 95 中 cdlOFNExplorer 的公共对话框使用字符作为分隔符；而在没有 Windows 95 外壳的 Windows NT 的早期版本中，多重选择是使用空格作为分隔符（固而不能支持长文件名）。无论是在 Windows NT 4.0 还是在 Windows 95 中，如果不选取 cdlOFNAllowMultiselect 标志，cdlOFNExplorer 和 cdlOFNLongNames 标志均没有意义，并且实际上是缺省值。无论是在 Windows NT 4.0 还是在 Windows 95 中，如果 cdlOFNAllowMultiselect 标志被单独使用，都不能支持长文件名。这是因为多重文件名要复现空格分隔符，而长文件名也可能包括空格符。在 Windows NT 3.5 中，无法避免这种情况。如果使用 cdlOFNAllowMultiselect，就不能看到长文件名。如果在 Windows 95 中添加 cdlOFNExplorer 标志，就可以既能文件多选，又能看到长文件名。但是，这些文件名显现空字符分隔符，而不是空格分隔符隔开。因此，cdlOFNAllowMultiselect 和 cdlOFNExplorer 一起使用时，在 Windows 95 和 Windows NT 4.0 中需要不同的文件名所得结果的语法分析。这些常数在对象浏览器中的 Microsoft CommonDialog 控件 (MSComDlg) 对象库中列出。也可以定义所选择的标志。应使用启动窗体声明部分的 Const 关键字来定义想使用的标志。例如：Const ReadOnly = &H00000001&
Const Effects = &H00000100&
CommonDialog1.Flags = &H10& Or &H200&将所需常数值能相加产生同样的结果。下例与上例等效：CommonDialog1.Flags = &H210& 数据类型Long