文件处理应用程序设计方法.
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
12
5.2 文件系统控件及相关语句
5.2.4 拷贝文件
语法：FileCopy <源文件>，<目标文件>
源文件名是字符串表达式，用来表示要被复制的文 件名。源文件可以包括目录和文件夹，以及驱动 器。
7
3. 驱动器列表框控件的Change事件
当选择驱动器列表框，改变当去驱动器时会触发该 控件的Change事件。因为当前驱动器改变，所以 目录列列表框 、文件列表框的路径也因此相应 改变。 Private Sub Drive1_Change() ChDrive Drive1.Drive '改变当前驱动器 Dir1.Path = Drive1.Drive '改变文件列表框的路径 Call ClearAttr '设置属性复选框组 End Sub
ChDrive "D"
'将当前驱动器改变为D
10
5.2 文件系统控件及相关语句
5.2.2 改变当前目录
语法：ChDir <路径名>
路径名是一个字符串表达式，它指定它指明哪个 目录或文件夹成为新的缺省目录或文件夹路径 名包含驱动器。如果没有指定驱动器，则 ChDir在当前驱动器上改变缺省目录或文件夹 说明：ChDir语句改变缺省目录位置，但不会改 变缺省驱动器位置。 例：将当前目录改变为D:\TMP ChDir “D:\TMP”
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
11
5.2 文件系统控件及相关语句
5.2.3 删除文件
语法：Kill <文件名>
文件名是字符串表达式，文件名可以带目录或文件 夹，以及驱动器的路径。 说明：在Windows 中，Kill支持多字符（*）和单字 符（？）的统配符来指定多重文件。比如： 1. 删除在D盘Data目录下的Test.txt文件 Kill “D:\Data\Test.txt” 2. 删除在C盘TEMP目录下所有以tmp为后缀的文件 Kill “C:\TEMP\*.tmp
Private Sub File1_Click() ShowAttr File1.FileName '设置属性复选框组 End Sub （演示）
9
5.2 文件系统控件及相关语句
5.2.1 改变当前驱动器
语法：ChDrive <驱动器名>
说明：驱动器是一个双引号的字符串表达 式，它指定一个存在的驱动器。如果使 用零长度的字符串（ " "），则当前的驱 动器不会改变。例如：
8
4. 目录列表框控件的Change事件
Private Sub Dir1_Change() ChDir Dir1.Path '改变当前目录 File1.Path = Dir1.Path '改变目录列表框的路径 ShowAttr Dir1.Path '设置属性复选框组 End Sub
5. 文件列表框控件的Click事件
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
Visual Basic 程序设计
第 5 章 文件处理应用程序设计方法
1
5.1 文件管理器程序任务
5.1.1 任务描述
在文件是指存储在外部存储介质上的数据的集合，是 一种可以永久性存储数据的形式。操作系统以文件为单位 管理数据，文件名是文件存在的标识符。把数据写入文件 或从文件中读取数据，计算机都是先根据文件名找到指定 的文件，然后在执行读写操作。 利用Windows操作系统的资源管理器和“我的电脑”等 程序，可以对磁盘文件进行列标、查看、删除、移动等操 作，人们一般将这类程序称为文件管理器。VB提供了驱动 器列表框、目录列表框和文件列表框三个控件来实现上述 功能。 示例：用VB建立一个简单的文件管理器应用程序，通 过该程序能够浏览磁盘目录和文件，并显示它们的属性。
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 If iAttr And vbArchive Then '判断是否为存档文件 Check1(4).Value = Checked '是则存档复选框选中 End If If iAttr And vbDirectory Then '判断是否为目录 Check1(5).Value = Checked '是则文件夹复选框选中 End If End Sub
5.2 文件系统控件及相关语句
5.2.4 拷贝文件
语法：FileCopy <源文件>，<目标文件>
源文件名是字符串表达式，用来表示要被复制的文 件名。源文件可以包括目录和文件夹，以及驱动 器。
7
3. 驱动器列表框控件的Change事件
当选择驱动器列表框，改变当去驱动器时会触发该 控件的Change事件。因为当前驱动器改变，所以 目录列列表框 、文件列表框的路径也因此相应 改变。 Private Sub Drive1_Change() ChDrive Drive1.Drive '改变当前驱动器 Dir1.Path = Drive1.Drive '改变文件列表框的路径 Call ClearAttr '设置属性复选框组 End Sub
ChDrive "D"
'将当前驱动器改变为D
10
5.2 文件系统控件及相关语句
5.2.2 改变当前目录
语法：ChDir <路径名>
路径名是一个字符串表达式，它指定它指明哪个 目录或文件夹成为新的缺省目录或文件夹路径 名包含驱动器。如果没有指定驱动器，则 ChDir在当前驱动器上改变缺省目录或文件夹 说明：ChDir语句改变缺省目录位置，但不会改 变缺省驱动器位置。 例：将当前目录改变为D:\TMP ChDir “D:\TMP”
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
11
5.2 文件系统控件及相关语句
5.2.3 删除文件
语法：Kill <文件名>
文件名是字符串表达式，文件名可以带目录或文件 夹，以及驱动器的路径。 说明：在Windows 中，Kill支持多字符（*）和单字 符（？）的统配符来指定多重文件。比如： 1. 删除在D盘Data目录下的Test.txt文件 Kill “D:\Data\Test.txt” 2. 删除在C盘TEMP目录下所有以tmp为后缀的文件 Kill “C:\TEMP\*.tmp
Private Sub File1_Click() ShowAttr File1.FileName '设置属性复选框组 End Sub （演示）
9
5.2 文件系统控件及相关语句
5.2.1 改变当前驱动器
语法：ChDrive <驱动器名>
说明：驱动器是一个双引号的字符串表达 式，它指定一个存在的驱动器。如果使 用零长度的字符串（ " "），则当前的驱 动器不会改变。例如：
8
4. 目录列表框控件的Change事件
Private Sub Dir1_Change() ChDir Dir1.Path '改变当前目录 File1.Path = Dir1.Path '改变目录列表框的路径 ShowAttr Dir1.Path '设置属性复选框组 End Sub
5. 文件列表框控件的Click事件
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
Visual Basic 程序设计
第 5 章 文件处理应用程序设计方法
1
5.1 文件管理器程序任务
5.1.1 任务描述
在文件是指存储在外部存储介质上的数据的集合，是 一种可以永久性存储数据的形式。操作系统以文件为单位 管理数据，文件名是文件存在的标识符。把数据写入文件 或从文件中读取数据，计算机都是先根据文件名找到指定 的文件，然后在执行读写操作。 利用Windows操作系统的资源管理器和“我的电脑”等 程序，可以对磁盘文件进行列标、查看、删除、移动等操 作，人们一般将这类程序称为文件管理器。VB提供了驱动 器列表框、目录列表框和文件列表框三个控件来实现上述 功能。 示例：用VB建立一个简单的文件管理器应用程序，通 过该程序能够浏览磁盘目录和文件，并显示它们的属性。
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 If iAttr And vbArchive Then '判断是否为存档文件 Check1(4).Value = Checked '是则存档复选框选中 End If If iAttr And vbDirectory Then '判断是否为目录 Check1(5).Value = Checked '是则文件夹复选框选中 End If End Sub