VB考试教程：文件处理函数

在VB6.0中，除了可以利用文件控件来对文件进行处理外，还可以通过一些函数和方法来处理文件，常用的文件处理函数和方法有Kill,FileCopy.RmDir,Shell和Name等。

1、 Kill 语句

Kill语句的功能是从磁盘中删除文件，它的语法结构如下：

　　Kill pathname

其中参数pathname是用来指定一个文件名的字符串表达式，pathname要包含文件所在的目录（文件夹）以及驱动器。

Kill支持多字符（*）和单字符（？）的统配符来指定多重文件。例如：

kill"c:\xy\*.bak"

将删除c盘xy目录下的备份文件。

Kill语句具有一定的“危险性”，因为在执行该语句时没有任何提示信息。

下面就是一个应用Kill语句设计应用程序的示例（见教材P336），它所能够实现的功能是可以显示一个对话框，在对话框中选择一个欲删除的文件，然后系统自动的完成删除的动作，具体的步骤如下：

（1）设计界面

首先在工具箱中添加一个CommonDialog控件，然后把它添加到空白的窗体上。

（2）添加代码　　

在程序的开始运行阶段就显示一个删除文件的对话框，为此在设计阶段双击窗体，在窗体的Form_load（）事件中添加下列代码：

Private Sub Form_Load()
CommonDialog1.DialogTitle = "打开一个欲删除的文件" '设置控件的标题。
CommonDialog1.FileName = "*.doc"
CommonDialog1.Filter = "*.doc" '设置过滤器.
CommonDialog1.showopen '显示对话框。
If CommonDialog1.FileName = "*.doc" Then
Else
Kill CommonDialog1.FileName '删除选中的文件
End If
End Sub

3. 保存文件，运行程序

[程序演示]

注意：在用Kill语句删除文件时，必须关闭该文件，否则出错。

2、 FileCopy 语句　　　　　　　

FileCopy语句的功能是复制一个文件 ，它的语法结构如下：

FileCopy source,destination

在FileCopy语句的语法中包括两个参数，其中soure用来表示要被复制的源文件名，而destination用来指定要复制的目的文件名。

在source和destination参数中都要包含文件所在的目录或文件夹以及驱动器。

下面就是一个应用FileCopy语句实现文件复制功能的程序的示例。见教材P338。

（1）设计界面

向工具箱中添加一个Commondialog控件，并且把它放置到空白的窗体上。

根据程序功能的要求，在窗体上添加两个CommandButton控件，两个TextBox控件和两个Label控件。

（2）编写程序的初始化代码　　

在程序的声明中定义两个全局变量，一个用来存放源文件路径和名字，另外一个用来存储目的文件路径和名字

　　Dim source as string '定义一个存储源文件路径和名字的字符串变量。

　　Dim destination as string '定义一个存储目的文件的路径和名字的字符串变量。

（3）响应[打开]按钮的单击事件

在设计阶段双击“打开”按钮，在弹出的代码窗口中添加下列代码：

Private Sub Command1_click()

CommonDialog1.showopen '显示一个对话框

source=CommonDialog1.filename '存储源文件路径和名字的字符串变量

text1.text=source

End Sub

程序说明：程序首先通过CommonDialog1.show 语句来显示一个对话框，在其中用户可能选择要复制的源文件，然后把选中源文件的路径和文件名存储在变量soure中，同时通过Text1.text=source把源文件的路径和文件名显示在文本框中。

（4）响应[另存为]按钮的单击事件

在设计阶段双击“另存为”按钮，在它的Command2_Click() 事件中添加下列代码：

Private Sub Command2_click()

CommonDialog1.showsave '显示一个对话框

destination=CommonDialog1.Filename '存储目的文件路径和名字的字符串变量

Text2.text=destination '显示目的文件路径和名字的字符串变量。

FileCopy source,destination ' 复制文件

End Sub

6. 存储文件，运行程序

　　[程序演示]

3、 Shell 函数

我们曾介绍了通用过程的定义及调用。实际上，在VB中，还可以调用各种应用程序，也就是说，凡能够在DOS或Windows下运行的应用程序，基本上都可在VB中调用。这一功能可通过Shell函数来实现。

它的语法结构如下：

　　Shell(pathname[,windowstyle]）

参数说明：

pathname为所要执行的应用程序的名称及其路径和必要的参数；

windowstyle表示在程序运行时窗口的样式。其中的参数windowstyle的设置及其说明如下表：

设置值 常数 说明
0 vbHide 窗口被隐藏，且焦点会移到隐藏式窗口
1 vbNormalFocus 窗口具有焦点，且会还原到它原来的大小和位置
2 vbMinimizedFocus 窗口会以一个具有焦点的图标来显示
3 vbMaximizedFocus 窗口是一个具有焦点的化窗口
4 vbNormalNoFocus 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动
6 vbMinimizedNoFocus 窗口会以一个图标来显示，而当前活动的窗口仍然保持活动