VisualBasic程序设计（第2版）第13章文件管理.pdfVIP

第13章 文件管理  13.1 文件系统控件  13.2 用传统语句和函数访问文件  13.3 文件系统对象  13.4 本章小结  13.5 上机实训 结束 13.1 文件系统控件  13.1.1 驱动器列表框  13.1.2 目录列表框  13.1.3 文件列表框  13.1.4 文件系统控件的同步操作 返回首页 13.1.1 驱动器列表框 （1） 驱动器列表框（DriveListBox ）控件的作用是 为用户提供一个选择有效磁盘驱动器的功能。该控 件可以显示出用户系统中所有有效磁盘驱动器的列 表。在图13.1的示意图中，左边是驱动器列表框的 原始状态，右边是展开后的状态。 DriveListBox控件最重 要的属性是Drive属性。程 序运行时，可以通过该属 性获得当前所选择的驱动 器，也可以改变Drive属性 的值，指定某个驱动器。 图13.1 驱动器列表框示意图 13.1.1 驱动器列表框 （2） 例如： 将驱动器列表框Drive1 中所选择的驱动器显示在文 本框Text1中： Text1.Text = Drive1.Drive 将驱动器列表框Drive1 中的驱动器设置为“e:\”： Drive1.Drive = e:\ 访问驱动器列表框中的列表项目时，其方式与普 通列表框控件类似，即可以使用List 属性数组访 问；ListCount表示列表项目的个数；ListIndex表示 当前选中的项目在列表中的索引位置。 13.1.1 驱动器列表框 （3） 驱动器列表框的主要事件是Change事件。在程 序的运行阶段，如果选择了一个驱动器列表项目， 或者通过代码改变了Drive属性的值，均将引发控 件的Change事件。 【例13.1 】将系统的驱动器信息收集到一个列表 框中，若在驱动器列表框中选择了一个驱动器，则 列表框中的相应驱动器也要被选中。 在窗体上添加一个驱动器列表框Drive1 。添加一 个普通列表框List1，设其Style属性为1 (带有复选 框)。设窗体的Caption为“驱动器列表框示例” 。 13.1.1 驱动器列表框 （4） 程序的运行结果见图13.2。 代码如下： Private Sub Form_Load() Dim i As Integer For i = 0 To Drive1.ListCount - 1 List1.AddItem Drive1.List(i) Next i End Sub Private Sub Drive1_Change() List1.Selected(Drive1.ListIndex) = True End Sub 返回本节 返回首页 13.1.2 目录列表框（1） 目录列表框（DirListBox）控件用于显示当前 或指定的驱动器的全部 目录结构，其显示方式是分 层的文件夹（目录）列表，类似于Windows的“资源 管理器” 。目录列表框默认显示的是与当前目录相关 的目录结构，通过双击列表中的一个目录项，就可 以打开该目录项的第一级子目录，从而浏览到全部 的目录结构，如图13.3所示。 图13.3 目录列表框 13.1.2 目录列表框（2） DirListBox控件的Path属性用来返回或设置当前 的目录路径，其值是一个指示路径的字符串。例 如，输出目录列表框控件Dir1中的当前目录路径： Print Dir1.Path 又如，将目录列表框控件Dir1中的当前目录路径设 置为“e:\xwx2004”： Dir1.Path = e:\xwx2004 目录列表框的List属性数组中包含了所有的目录 列表项目，访问该数组的方式与普通列表框控件类 似，也