1. 首页
  2. 文档大全

VB程序设计第五章.ppt

上传者:放射辐射 2022-06-24 17:10:02上传 PPT文件 776 KB
VB程序设计第五章
5.2 文件系统控件及相关语句
5.2.6 创建新目录
语法:MkDir <目录名>
说明:若没有指定驱动器,则在当前驱动器上创建目录。例:Mkdir “成绩单"
5.2.7 删除目录
语法:RmDir <目录名>
说明:在使用此命令前,应先使用Kill命令删除所有文件,否则会发生错误。
例:RmDir “C:\成绩单\临时文件夹”
5.2 文件系统控件及相关语句
5.2.8 得到当前路径
语法:CurDir <驱动器名>
说明:若没有指定驱动器,或驱动器名为空,在返回当前驱动器的路径。返回值为Variant(String)。
C盘的当前路径为C:\Program Files
D盘的当前路径为D:\Visual Basic程序设计
当前驱动器为C,则:
Dim MyPath As String
MyPath=CurDir ‘返回C:\Program Files
MyPath=CurDir(“C”) ‘返回C:\Program Files
MyPath=CurDir(“D”) ‘返回D:\Visual Basic程序设计
5.2 文件系统控件及相关语句
5.2.9 设置文件属性
语法:SetAttr <文件名>,<文件属性值>
SetAttr “test.txt”,vbArechive+vbReadOnly
常数

描述
vbNormal
0
常规(默认值)
vbReadOnly
1
只读
vbHidden
2
隐藏
vbSystem
4
系统文件
vbDirectory
16
目录或文件夹
vbArchive
32
存档文件
vbAlias
64
指定的文件名是别名
5.2 文件系统控件及相关语句
5.2.10 得到文件属性
语法:GetAttr <文件名>
若当前文件夹下有一个test.txt,通过以下方法可获得文件的属性:
Dim iAttr As Integer:iAttr=GetAttr(“test.txt”)
If iAttr And vbNormal Then:debug.print “普通文件”
If iAttr And vbReadOnly Then:debug.print “只读文件”
If iAttr And vbHidden Then:debug.print “隐藏文件”
If iAttr And vbSystem Then:debug.print “系统文件”
If iAttr And vbDirectory Then:debug.print “目录”
If iAttr And vbArchive Then:debug.print “存档文件”
5.2 文件系统控件及相关语句
5.2.11 常用文件系统控制
1、驱动器列表框
下拉式列表框,显示计算机内全部有效的驱动器。最常用的属性为Drive属性,该属性用于在程序运行时设置或返回选定的驱动器,只在运行阶段有效。如:Drive1.Drive=“C:” ‘指定C盘为当前驱动器
使用ChDrive可以使指定的驱动器设置为当前驱动器。
ChDrive Drive1.Drive
驱动器列表框最重要的事件是Change事件。
5.2 文件系统控件及相关语句
5.2.11 常用文件系统控制
2、目录列表框
以列表方式显示当前驱动器上的所有目录,运行时双击即可打开下一级目录。
最常用的属性是Path属性,只在运行阶段有效。
Dir1.Path=“C:\Visual Basic\Stu”
‘指定C盘Visual Basic\Stu为当前目录
使用ChDir语句可使指定的目录成为当前目录:
ChDir Dir1.Path
目录列表框最重要的事件是Change事件。
5.2 文件系统控件及相关语句
5.2.11 常用文件系统控件
3、文件列表框
以列表方式显示当前目录下的所有文件,文件列表框的三种属性:
(1)Path属性:用于设置文件列表框中所示的完整路径:File1.Path=“C:\Visual Basic\Stu”
(2)Pattern属性:设置列表框中可以显示的文件类型,默认为*.*,表示所有文件:
File1.Pattern=“*.txt”
(3)FileName属性:设置或返回选定的文件名称,只在运行阶段可用。
5.3 标准文件输入/输出
5.3.1 顺序文件
1、顺序文件的打开和关闭
顺序文件采用记录结构,按次序一个接一个地排列记录,只提供第一个记录的存储位置。需要读取记录时,必须按顺序从第一条记录

VB程序设计第五章


文档来源:https://www.taodocs.com/p-690501822.html

文档标签:

下载地址