第五章 格式文件操作和处理
文件是计算机的基本概念，也是计算机进行运算和存储的基础。在这里，我们不对文件处理做太多的原理阐述，本章通过几个示例程序向读者介绍有关Visual Basic 6.0中处理文件的基本技术和常用技巧。
在Visual Basic 6.0中处理文件可以通过以下几个途径，如通过文件处理控件、调用系统函数和利用Visual Basic 6.0自定义文件函数等方式，下面将分别加以介绍。
5.1 文件的格式处理
在Visual Basic 6.0中有三个文件类控件——DriveListBox控件、DirListBox控件和FileListBox控件，它们分别用来处理驱动器、目录和文件的信息，但是在程序运行的过程中，只有将以上三个控件结合起来实用，才能够进行真正的文件处理操作。
下面就以一个程序设计示例来说明在Visual Basic 6.0中利用控件如何处理文件，具体的程序设计步骤如下所示：
1．开始工作
首先激活Visual Basic 6.0应用程序，在Visual Basic 6.0的集成开发环境中用鼠标选择菜单“文件”/“新建工程”选项，在屏幕上就会弹出一个如图5-1所示的“新建工程”对话框。
图5-1 “新建工程”对话框
在“新建工程”对话框中选择“标准 EXE”选项，单击“确定”按钮，在Visual Basic 6.0中就新建了一个标准的工程文件，同时打开了一个空白的窗体。
窗体的属性设置如下所示：
Begin Visual Basic.Form File
BorderStyle = 3
Caption = "利用控件处理文件"
MaxButton = 0
MinButton = 0
ScaleHeight = 4590
ScaleWidth = 6885
Moveable = 0
StartUpPosition = 2
End
经过以上属性设置后的窗体具有如下所示的特性：
n 窗体的名字为File，在程序设计的过程中可以通过File这个名字来调用窗体；
n 程序运行过程中，窗体位于屏幕的中央，并且用户不能够移动窗体；
n 窗体的标题栏中显示文本“利用控件处理文件”；
n 窗体的标题栏中没有最大化和最小化按钮，只有关闭按钮；
n 在程序运行的过程，用户不能够改变窗体的大小。
设置后的程序运行窗体效果如图5-2所示。
图5-2 设置属性后的窗体特性
2．添加文件类控件
在本示例程序中，由于要利用对文件进综合处理，所以要向当前空白的窗体上添加一个DriveListBox控件、一个DirListBox控件和一个FileListBox控件。
它们的属性设置如下所示：
Begin Visual Basic.DriveListBox Drive1
Height = 360
Left = 360
Top = 360
Width = 2895
End
Begin Visual Basic.DirListBox Dir1
Height = 2385
Left = 360
Top = 960
Width = 2895
End
Begin Visual Basic.FileListBox File1
Height = 3015
Left = 3480
Pattern = "*.txt;*.bmp;*.exe;*.hlp"
Top = 360
Width = 3015
End
添加文件类控件后的窗体如图5-3所示。
图5-3 添加文件类控件后的窗体
添加到窗体上的三个文件类控件，它们的作用是用来分别处理驱动器、目录和文件的信息。
注意：
@ FileListBox控件的Pattern属性设置为"*.txt;*.bmp;*.exe;*.hlp"，也就意味着，在程序运行的过程中，文件类控件中只能够显示以*.txt;*.bmp;*.exe;*.hlp为文件后缀的文件。
3．添加文件信息显示控件
以上所添加的三个文件类控件在程序运行的过程中，只能够完成显示驱动器、目录和文件名称等简单的信息，为了能够完整的显示选中文件和选中目录的信息，在本示例程序中还要向窗体添加两个TextBox控件和两个Label控件。
添加了文件信息显示控件后的窗体如图5-4所示。
图5-4 添加了文件信息显示控件后的窗体
所添加的文件信息显示控件的作用如下所示：
n Label1控件：显示固定的文本“目录路径”；
n Text1控件：显示当前选中目录的路径；
n Label2控件：显示固定的文本“文件路径”；
n Text2控件：显示当前选中文件的路径。
其中添加到窗体上文件信息显示控件的属性设置如下所示：
Begin Visual Basic.TextBox Text2
Height = 615
Left = 3480
MultiLine = -1
ScrollBars = 1
Top = 3840
Width = 2895
End
Begin Visual Basic.TextBox Text1
Height = 615
Left = 360
MultiLine = -1
ScrollBars = 1
Top = 3840
Width = 2895
End
Begin Visual Basic.Label Label2
AutoSize = -1
Caption = "文件路径："
Height = 285
Left = 3480
Top = 3480
Width = 1200
End
Begin Visual Basic.Label Label1
AutoSize = -1
Caption = "目录路径："
Height = 285
Left = 360
Top = 3480
Width = 1200
End