文件处理应用程序设计方法.pdf

Visual Basic 程序设计 第 5 章 文件处理应用程序设计方法 1 5.1 文件管理器程序任务 5.1.1 任务描述 在文件是指存储在外部存储介质上的数据的集合，是 一种可以永久性存储数据的形式。操作系统以文件为单位 管理数据，文件名是文件存在的标识符。把数据写入文件 或从文件中读取数据，计算机都是先根据文件名找到指定 的文件，然后在执行读写操作。 利用Windows操作系统的资源管理器和 “我的电脑”等 程序，可以对磁盘文件进行列标、查看、删除、移动等操 作，人们一般将这类程序称为文件管理器。VB提供了驱动 器列表框、目录列表框和文件列表框三个控件来实现上述 功能。 示例：用VB建立一个简单的文件管理器应用程序，通 过该程序能够浏览磁盘目录和文件，并显示它们的属性。 2 5.1.2 界面设计 1.创建工程 新建一个 “标准EXE”工程，工程名为 “文件管 理”。其中将用到的主要控件如图所示。 驱动器列表框 目录列表框 文件列表框 3 2. 创建窗体 4 5.1.3 代码设计 1. 编写ClearAttr过程 因为选择一个新的文件时，需要将原来的文本属性复选框清空， 这个功能在其它多个子程序中均要用到，所以在代码窗的 “通用”部分创建以下子程序： Private Sub ClearAttr() Dim I As Integer For I = 0 To 5 将Check1(0)～Check1(5)复选框清空 Check1(I).Value = 0 Next I End Sub 5 2. 编写ShowAttr过程 获取文件属性编写了一个通用子程序ShowAttr，该子程序有一个 输入参数sPath，它是一个字符串型参数，采用值传递，表示输入的 文件名。整个程序通过 “与”操作比较文件属性字，判断文件属性。 Private Sub ShowAttr(ByVal sPath As String) Dim iAttr As Integer 存储文件的属性值 Call ClearAttr 调用复选框清空子程序 iAttr = GetAttr(sPath) 获取文件的属性 If iAttr And vbNormal Then 判断是否为普通文件 Check1(0).Value = Checked 是则普通复选框选中 End If If iAttr And vbReadOnly Then 判断是否为只读文件 Check1(1).Value = Checked 是则只读复选框选中 End If 6 2. 编写ShowAttr过程 If iAttr And vbHidden Then 判断是否为隐藏文件 Check1(2).Value = Checked 是则隐藏复选框选中 End If If iAttr And vbSystem Then 判断是否为系统文件 Check1(3).Value = Checked 是则系统复选框选中 End If