天天看点

VB6.0(第十二课时)

一、错误类型

(一)编译错误:即语法错误,由于代码结构违反了语句的语法规定而产生的错误,如缺少关键字:

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

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

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

二、错误处理语句和对象

Err对象:含有有关当前程序运行时的错误信息,当程序运行时出现问题时,错误信息就会在err对象中反应出来。

三、文件处理系统

1、文件处理的一般步骤:

(1)打开文件

(2)对文件进行读写操作

(3)关闭文件

2、文件系统控件:DriveListbox(驱动器列表框)、DirListbox(目录列表框)、FileListbox(文件列表框)

VB6.0(第十二课时)

(1)DriveListbox(驱动器列表框)

主要属性:

①Drive:用于返回或设置所选择的驱动器。

②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:当所选择的驱动器名称发生改变时触发。

(2)DirListbox(目录列表框)

主要属性:

①List

②Listindex

③path

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

(3)FileListbox(文件列表框)

主要属性:

①path

VB6.0(第十二课时)

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

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

③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   
           

3、文件操作语句

(1)chdrive:用来改变当前的驱动器。如

又如:

(2)改变目录或文件夹(Chdir)

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

(3)删除文件(kill语句):用于从磁盘中删除文件。

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

(4)创建目录或文件夹(Mkdir语句)

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

(5)复制文件(Filecopy语句):用于复制一个文件。

(6)重命名(name语句):重新命名一个文件、目录、文件夹。

name oldname as newname
           

注:在一个已打开的文件上使用name语句,将会产生错误。因此,必须在改变名称之前关闭打开的文件。

(7)设置文件属性(setattr语句)

setattr pathname,attributes
           
VB6.0(第十二课时)

4、常用文件函数

(1)获取路径:curdir

(2)获取文件的属性:getattr

(3)获取文件创建或修改时间:filedatetime

(4)返回文件长度:filelen

(5)测试文件结束状态:eof

(6)获取打开文件的大小:lof

二、顺序文件

三、FSO对象模型

1、FSO:基于对象的工具来处理文件夹和文件。

2、引入:工程------引用-------microsoft scripting runtime

浏览新增的对象:drive、file、filesystemobject、folder、textstream对象。

(一)filesystemobject对象

1、创建一个 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:\")