一、错误类型
(一)编译错误:即语法错误,由于代码结构违反了语句的语法规定而产生的错误,如缺少关键字:
if text1.text=""
label1.caption="你好"
endif
(二)运行错误:在程序编译通过后运行代码时发生的,一般是由于程序执行过程中出现了非法操作引起的。如,除法中除数为0、类型不匹配、访问的文件不存在。
(三)逻辑错误:程序没有按预期的方式执行。如:函数定义错误、循环条件不正确、语句顺序不对等。
二、错误处理语句和对象
Err对象:含有有关当前程序运行时的错误信息,当程序运行时出现问题时,错误信息就会在err对象中反应出来。
三、文件处理系统
1、文件处理的一般步骤:
(1)打开文件
(2)对文件进行读写操作
(3)关闭文件
2、文件系统控件:DriveListbox(驱动器列表框)、DirListbox(目录列表框)、FileListbox(文件列表框)
(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
②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:用来改变当前的驱动器。如
chdrive "D" '使“D”成为当前驱动器
又如:
chdrive drive1.list(drive1.listindex) '将驱动器设置为当前驱动器
(2)改变目录或文件夹(Chdir)
chdir "mydir"
chdir app.path
chdir "c:\windows\system"
(3)删除文件(kill语句):用于从磁盘中删除文件。
kill file1.path & "\" & file1.filename '删除指定路径下的文件
file1.refresh '文件列表框刷新
(4)创建目录或文件夹(Mkdir语句)
mkdir "d:\myfolder" '在D盘下创建一个myfolder文件夹
注意:如果创建的文件已经存在,则会产生错误。
(5)复制文件(Filecopy语句):用于复制一个文件。
filecopy text1.text text2.text '复制文件
(6)重命名(name语句):重新命名一个文件、目录、文件夹。
name oldname as newname
注:在一个已打开的文件上使用name语句,将会产生错误。因此,必须在改变名称之前关闭打开的文件。
(7)设置文件属性(setattr语句)
setattr pathname,attributes
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:\")