第九章文件系统解析.ppt

  1. 1、本文档共45页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第9章 文件 第9章 文件 本章要点: 掌握文件系统控件; 掌握VB中文件的概念、种类及其结构; 掌握顺序文件的操作:打开、读/写、关闭; 了解文件操作的常用函数。 9.1 文件系统的概念 文件:存储在外部介质上数据的集合。 按名存取 磁盘文件是由数据记录组成。 记录是计算机处理数据的基本单位 9.1 文件系统的概念 文件分类 根据文件的存取方式及其组成结构,将文件分成3种类型: (1)顺序文件 (2)随机文件 (3)二进制文件 文件分类 顺序文件 顺序文件(Sequential File)是普通的文本文件。顺序文件中的记录按顺序一个接一个地排列。读写文件存取记录时,都必须按记录顺序逐个进行。一行一条记录(一项数据),记录可长可短,以“换行”字符为分隔符号。 文件分类 随机文件(Random Access File)是可以按任意次序读写的文件,其中每个记录的长度必须相同。在这种文件结构中,每个记录都有其唯一的一个记录号,读取数据时,只要知道记录号,便可以直接读取记录。 文件分类 二进制文件 直接把二进制码存放在文件中 在程序中可以按任何方式组织和访问数据,对文件中各字节数据直接进行存取。任何文件都可以用二进制模式访问。 9.2 文件系统控件 驱动器列表框 目录列表框 文件列表框。 9.2.1驱动器列表(DriveListBox) Drive属性:在运行时返回或设置所选定的驱动器。该属性在设计时不可用,只能在程序中被引用或设置。 [驱动器列表框名.]Drive[= 驱动器名] 例:Drive1.drive=“D:” 9.2.1驱动器列表(DriveListBox) Change事件:程序运行时,当选择一个新的驱动器或通过代码改变Drive属性的设置时触发。 例9-1 9.2.2 目录列表框(DirListBox) 显示当前驱动器目录结构及当前目录下的所有子文件夹(子目录),供用户选择其中一个目录作为当前目录,如图 9.2.2 目录列表框(DirListBox) Path属性 :返回或设置当前路径。 格式: 目录列表框名.Path= 路径名字符串 例: Dir1.Path= C:\Mydir 9.2.2 目录列表框(DirListBox) 9.2.2 目录列表框(DirListBox) Change事件 在程序运行时,每当改变当前目录,即目录列表框的Path属性发生变化时触发。 例9-2 9.2.3 文件列表框(FilelistBox) Path 属性 显示该路径下的文件。 重新设置Path属性引发PathChange事件。 例:File1.path=“C:\Windows” 9.2.3 文件列表框(FilelistBox) Pattern属性 返回或设置文件列表框所显示的文件类型。缺省时表示所有文件。 例:File1.Pattern= *.txt File1.Pattern= ???.txt File1.Pattern = *.txt ; *.doc 9.2.3 文件列表框(FilelistBox) FileName属性: 返回或设置被选定文件的文件名。 该属性设计时不可用。 Filename属性不包括路径名。 9.2.3 文件列表框(FilelistBox) FileName属性: 9.2.3 文件列表框(FilelistBox) Click、DblClick事件 例:单击输出文件名。 Sub File1_Click( ) MsgBox File1.FileName End Sub 9.2.3 文件列表框(FilelistBox) 例:双击执行可执行程序(记事本notepad.exe) Sub File1_DblClick( ) Dim name As String If Right(file1.path,1) =\ Then name=file1.path file1.filename Else name=file1.path \ file1.filename End If n = Shell(name, 1) 执行程序 End Sub 三种文件系统控件组合应用 例:显示计算机中的文件系统。 例:显示计算机中的文件系统。 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 例:显示计算机中的文件系统。 编写组合框的相关代码。 9.3 顺序文件的打开 打开文件: Open

文档评论(0)

挑战不可能 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档