VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 从公共对话框控件中提取多个文件名称
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10162, 日期:2002-05-06
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 = CommonDi g1. 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),则文件名称将被显示在第二个文本 框控件中,而目录的名称将被显示在第一个文本框控件中