VB6.0（第十二课时）

一、错误类型
（一）编译错误：即语法错误，由于代码结构违反了语句的语法规定而产生的错误，如缺少关键字：

if text1.text=""
    label1.caption="你好"
 endif

（二）运行错误：在程序编译通过后运行代码时发生的，一般是由于程序执行过程中出现了非法操作引起的。如，除法中除数为0、类型不匹配、访问的文件不存在。

（三）逻辑错误：程序没有按预期的方式执行。如：函数定义错误、循环条件不正确、语句顺序不对等。

二、错误处理语句和对象
Err对象：含有有关当前程序运行时的错误信息，当程序运行时出现问题时，错误信息就会在err对象中反应出来。

三、文件处理系统
1、文件处理的一般步骤：
（1）打开文件
（2）对文件进行读写操作
（3）关闭文件

2、文件系统控件：DriveListbox（驱动器列表框）、DirListbox（目录列表框）、FileListbox（文件列表框）

（1）DriveListbox（驱动器列表框）
主要属性：
①Ｄrive：用于返回或设置所选择的驱动器。
②List：返回或设置控件的列表部分的项目。

dim i as integer
dim s as string
for i=0  to driver1.listcount-1   '循环次数为驱动器中列表项目数
     s=s+ "  " & Drive1.list(i)　　　'将列表数赋给变量
     next i
 label1.caption=s    

主要事件：
change：当所选择的驱动器名称发生改变时触发。

（２）DirListbox（目录列表框）
主要属性：
①List
②Listindex
③path

Private sub Drive1_change()
   dir1.path= drive1.drive
end sub
private  sub  dir_change()
    label1.caption =dir1.path
end sub

（３）FileListbox（文件列表框）
主要属性：
①path

②Pattern：返回或设置一个值，指示在运行时显示在Filelistbox控件中的文件名的扩展名。

file1.pattern =".txt"    '显示所有的文本文件
file1.pattern ="*.txt;*.doc"   '显示所有的文本文件和word文档文件
file1.pattern="???.txt"    '显示文件名包含３个字符的文本文件

③Filename：用于返回或设置所选的文件名，值为字符串。

dim  mystr as string
   if right(file1.path,1)  = "\"  then
         mystr =file1.path & file1.filename
   else
         mystr =file1.path & "\" & file1.filename
   end if 
print mystr

主要事件：
①pathchange：当Filelistbox控件中的路径改变时pathchange事件被触发。
②Patternchange：当文件的列表样式，如“.”被代码中对filename或path属性的设置所改变时，此事件发生。

Private sub File1_patternchange()
    file1.pattern = combo1.text    '将选择的文件类型赋给pattern属性
    label1.caption ="文件的路径为：" & file1.path　　'在标签中显示文件的路径
end sub   

３、文件操作语句
（１）chdrive：用来改变当前的驱动器。如

chdrive "D"    '使“Ｄ”成为当前驱动器

又如：

chdrive drive1.list(drive1.listindex)   '将驱动器设置为当前驱动器

（２）改变目录或文件夹（Chdir）

chdir  "mydir"
chdir  app.path
chdir  "c:\windows\system"

（３）删除文件（kill语句）：用于从磁盘中删除文件。

kill file1.path & "\" & file1.filename   '删除指定路径下的文件
file1.refresh      '文件列表框刷新

（４）创建目录或文件夹（Mkdir语句）

mkdir    "d:\myfolder"    '在Ｄ盘下创建一个myfolder文件夹

注意：如果创建的文件已经存在，则会产生错误。

（５）复制文件（Filecopy语句）：用于复制一个文件。

   filecopy  text1.text  text2.text   '复制文件

（６）重命名（name语句）：重新命名一个文件、目录、文件夹。

name oldname as newname

注：在一个已打开的文件上使用name语句，将会产生错误。因此，必须在改变名称之前关闭打开的文件。
（７）设置文件属性（setattr语句）

setattr pathname,attributes

4、常用文件函数
（１）获取路径：curdir
（２）获取文件的属性：getattr
（３）获取文件创建或修改时间：filedatetime
（４）返回文件长度：filelen
（５）测试文件结束状态：eof
（６）获取打开文件的大小：lof

二、顺序文件

三、FSO对象模型
１、FSO：基于对象的工具来处理文件夹和文件。
２、引入：工程------引用-------microsoft scripting runtime
浏览新增的对象：drive、file、filesystemobject、folder、textstream对象。
（一）filesystemobject对象
１、创建一个 filesystemobject对象
（1）使用new创建：

dim  myfso as new filesystemobject

（2） 使用creatobject 方法创建：

dim myfso as object 
set myfso = creatobject("scripting.filesystemobject")

（二）Drive对象

（三）Folder对象与文件夹的浏览（获取某路径的文件夹名）
1、创建Folder对象
如：希望获得C：\下的文件夹信息，可利用下面的代码创建：

dim myfso as new filesystemobject 
dim myfoder as folder
set myfoder =  myfso.getfolder("C:\")