浅谈VB文件系统控件

摘要：文件是指存储在磁盘上的数据集合，每个文件必须有唯一的文件名，应用程序通过文件名对文件进行访问。VB的文件系统控件具有强大的对文件系统操作的能力，用户可以很方便地访问文件系统。VB包含三种文件系统控件：驱动器列表框、目录列表框、文件列表框,利用这些控件，可以组成文件操作对话框，对计算机上的文件信息进行浏览和处理。

关键词：VB；文件系统控件；驱动器列表框；目录列表框；文件列表框

中图分类号：TP312文献标识码：A文章编号：1009-3044(2008)16-21360-02

Discussed Shallowly the Filing System Controls of VB

GUO Cun-li

(Yuxi Agriculture Vocation-Technical College,Yuxi 653106,China)

Abstract: File is the data collection which stored on disk, each file must have a unique file name. The application program visit file through file name .The VB filing system controls with a strong ability to operating file system, the user may visit the filing system very conveniently. VB contains three kind of filing system controls: drive list box, directory list box, file list box, using these controls, may compose the document operation dialog box to browsing and processing document information on the computer.

Key words:VB;filing system controls;drive list box;directory list box;file list box

1 引言

在Windows应用程序中，当打开文件或将数据以文件的形式存入磁盘时，通常要打开一个对话框，利用这个对话框，可以指定驱动器、目录、文件名，方便地查看系统的驱动器、目录及文件信息。为了建立这样的对话框。Visual Basic提供了三种控件，即驱动器列表框控件（Drive ListBox）、目录列表框控件（DirListBox）和文件列表框控件(FileListBox）。用户可以利用这三个控件，协调配合组成文件操作对话框，实现对文件的管理操作。

2 驱动器列表框

驱动器列表框控件（DriveListBox）是下拉式列表框。缺省时在用户系统上显示当前驱动器。单击右侧的下拉箭头，下拉列表框将列举出所有的有效驱动器。若用户从中选定新驱动器，则这个驱动器将出现在列表框的顶端。

2.1 常用属性

(1)Name属性：设置驱动器列表框控件的名字，默认值为Drive1。

(2)Drive属性：返回或设置运行时选择的驱动器。Drive属性只能在程序代码中设置，而不能在属性窗口中修改。其格式为：

[对象.]Drive[=drive]

其中：

对象：表示驱动器列表框的名称

drive：表示驱动器的名称，

例如：若有缺省名为Drive1的驱动器列表框Drive属性设置为：

Drive1.Drive = "c:\" ‘指定当前驱动器为C驱动器

驱动器列表框显示可用的有效驱动器。从列表框中选择驱动器并不能自动地变更当前系统的工作驱动器；需要用ChDrive命令来变更，格式为：

ChDrive Drive1.Drive

2.2 常用事件

驱动器列表框支持Chang事件，当Drive属性值发生变化时，即驱动器列表框中的显示驱动器发生变化时，都会触发此事件。

3 目录列表框

目录列表框控件（DirListBox）从最高层目录开始显示用户系统上的当前驱动器目录结构。这种目录列表完全符合Windows操作系统的风格。首先，显示当前目录名及其下一级目录名。如果用户选种某一个目录名，并且双击它，将打开该目录，显示其子目录的结构。如果目录列表较多，将自动添加一个滚动条。

3.1常用属性

(1)Name属性：用于设置目录列表框控件的名字，缺省值为Dir1。

(2)Path属性：用于返回或设置目录列表框中的当前目录，Path属性只能在程序代码中设置，而不能在属性窗口中修改。其格式为：

[对象.] Path [=pathname]

其中：

对象：表示目录列表框或文件列表框的名称

pathname：表示路径字符串，

例如：若有缺省名为Dir1的目录列表框Path属性设置为：

Dir1.Path="c:\payroll" ‘指定c:\payroll为当前目录

(3)ListIndex属性：返回目录列表框中突出显示的目录序号。由Path属性所指定目录的序号为-1，上一级为-2，再上一级为-3、…，它的第一个子目录为0，第二个子目录为1，依此类推。例如图1所示，当前目录C:\ProgramFiles\Microsoft Visual\VB98，它的目录序号为-1，它的上一级目录C:\Program Files\Microsoft Visual的目录序号为-2,它的的子目C:\ProgramFiles\MicrosoftVisual\VB98\Setup的目录序号为0。

(4)ListCount属性：是Path属性指定的当前目录中子目录的个数。只能通过代码读取。

(5)List属性：返回目录列表框中各项值。其值是一个字符串数组，数组中的每一个元素包含了控件中相应条目的目录名（带有完整路径）。如图1所示 Dir1.List(1)为C:\Program Files\Microsoft Visual\VB98\Template

2.2 常用事件

Change事件：在目录框发生变化时，会触发该事件。

4 文件列表框

文件列表框控件(FileListBox）显示指定当前目录下的文件目录清单。

4.1 常用属性

(1)Name属性：用于设置文件列表框控件的名字，缺省值为File1。

(2)Pattern属性：文件列表框的Pattern属性返回或设置文件列表框所显示的文件类型。默认值为“*.*”,显示所有文件。它可以在程序中设置，也可以在属性窗口中设置。Pattern属性支持分号分隔的列表。例如要显示所有扩展名为.doc和.frm的文件，Pattern属性设置如下：

File1. Pattern=”*.doc;*.frm”

(3)FileName属性：用来设置和返回文件列表框中的文件名，在属性窗口中不可用。

(4)Path属性：用来设置和返回文件列表框中所选中文件的路径（不包括文件名）。只能在程序代码中对其进行设置。Path属性的使用方法和目录列表框Path属性的使用方法相同。

(5)Readonly属性、Archive属性、Normal属性、Hidden属性和System属性：用于设置要显示文件的属性。分别决定是否可以显示只读文件、存档文件、普通文件、隐藏文件和系统文件。System 和 Hidden 属性的缺省值为 False。Normal、Archive 和 ReadOnly属性的缺省值为 True。

另外，文件列表框也和目录列表框一样具有ListCount、ListIndex、List属性，其使用方法也目录列表框的相同。

4.2 常用事件

(1)PathChange事件：当路径被代码中Filename或Path属性的设置改变时，此事件发生。

(2)Click事件：文件列表框能识别单击事件，选中所单击的文件，将改变ListIndex属性值，并将FileName的值设置为单击的文件名字符串。

(3)DblClick事件：文件列表框能识别双击事件，常常用于对所双击的文件进行处理。

5 文件系统控件的同步

在实际应用中，驱动器列表框、目录列表框和文件列表框有着密切的关系，往往需要同步操作，在一般情况下，改变驱动器列表框中的驱动器名后，目录列表框中的目录应当随之变为该驱动器的目录，也就是使驱动器列表框和目录类列表框产生同步效果。同样，目录列表框和文件列表框也要产生同步效果。若驱动器列表框控件、目录列表框控件和文件列表框控件的缺省名分别为Drive1、Dir1和File1，通过下面两个事件过程可使得文件系统的三种列表框控件同步操作。

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

6 结束语

Visual Basic是一种新型的现代语言，Visual Basic成功的解决了用户界面设计的难点，利用本文介绍的文件系统控件可以设计出满足用户特殊要求的、具有不同界面风格的对话框，利用它们进行文件管理十分方便。

参考文献：

[1] 谭浩强,袁玫,薛淑斌.Visual Basic程序设计[M].2版.北京:清华大学出版社,2004:225-227.

[2] 张洪明.Visual Basic 6.0 程序设计基础教程[M].北京:科学出版社,2003 206-212.

[3] 李林,审时凯,王卫星.Visual Basic程序设计[M].北京:地质出版社,2006 180-183.

注：本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文。