第13章 文件管.ppt

第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的示意图中，左边是驱动器列表框的原始状态，右边是展开后的状态。 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.1.2 目录列表框（2） DirListBox控件的Path属性用来返回或设置当前的目录路径，其值是一个指示路径的字符串。例如，输出目录列表框控件Dir1中的当前目录路径： Print Dir1.Path 又如，将目录列表框控件Dir1中的当前目录路径设置为“e:\xwx2004”： Dir1.Path = e:\xwx2004 目录列表框的List属性数组中包含了所有的目录列表项目，访问该数组的方式与普通列表框控件类似，也是通过索引值ListIndex进行。 13.1.2 目录列表框（3） 目录列表框的索引值有以下特殊规定： （1）Path属性所指定的目录的索引值总是为-1，因此，通过Dir1.Path或Dir1.List(-1)都可以获得当前目录。 （2）紧邻当前目录之上的目录，其索引是-2，再上一个为-3，依次类推。 （3）紧邻当前目录下的第一个子目录，其索引是0；若有多个一级子目录，则每个子目录的索引分别是0、1、2、…，直到ListCount-1。因此ListCount属性表示当前目录下的一级子目录个数，而不是目录列表框中列出的所有项目。 13.1.2 目录列表框（4） 例如，一个目录列表框Dir1的索引值情况如图13.4所示，其中当前目录是“VB”，其下的一级子目录有3个，故Dir1.ListCount的值为3。 13.1.2 目录列表框（5） 目录列表框的事件主要是Change事件和Click事件。单击目录列表框中的某个项目时，系统自动修改ListIndex属性值，同时触发Click事件。双击目录列表框中的某个项目时，自动设置Path属性为当前选择的目录，并修改ListIndex属性值为-1，同时触发Change事件。如果在代码中直接修改了Path属性的值，也会触发Change事件。