- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
顺序文件.ppt
单元辅导(八);[学习目标]
掌握:文件控件和文件操作。
理解:文件类型及结构。
[学习要点]
利用文件控件处理文件的方法、文件处理函数、文件系统对象(FileSystemObject)编程。
在计算机系统中,文件是指存放在外部存储介质上的数据和程序等。为了方便用户存取,在现代的计算机系统中,都包含有文件管理系统,用户可以对文件进行各种各样的处理和操作,如选择、打开和删除等。 ;文件控件:
一、DriveListBox控件:在程序的运行过程中,为用户提供一个选择有效的磁盘驱动器的功能,该控件可以用来显示用户系统中所有有效磁盘驱动器的列表。Drive属性,可以在程序的运行阶段通过设置Drive属性的值来改变DriveListBox控件的缺省驱动器。
例:
?1、添加控件如图;设置属性:ToolTipText:DriveListBox控件的应用 ;3、运行程序: ;3、运行程序: ;2、添加代码: Private Sub Dir1_Change()
MsgBox Dir1.List(-2)
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Drive1.Enabled = True
Dir1.Enabled = True
Drive1.Drive = e:\
End Sub
3、运行程序: ; ListCount属性:返回控件的列表部分工程的个数,对DirListBox
控件而言,ListCount属性中存储着当前目录中子目录的个数。
例:1、添加代码:Private Sub Dir1_Change()
MsgBox Dir1.ListCount
End Sub
2、运行结果: ; 三、FileListBox控件:在程序的运行过程中,根据Path属性
指定的目录,将文件定位并列举出来。
例:1、界面设计:设置属性:Patteren:*.txt;*.exe ;3、运行程序: ;利用文件控件来处理文件
第一个示例:综合利用DriveListBox控件、DirListBox控件和
FileListBox控件的协调工作来处理文件。 ;Private Sub File1_Click()
MsgBox File1.Path \ File1.FileName
End Sub
Private Sub Form_Load()
Drive1.Enabled = True
Dir1.Enabled = True
File1.Enabled = True
File1.Pattern = *.exe
Drive1.Drive = c:\
End Sub ;第二个示例:
1、添加控件,设置属性 ;文件处理函数 ;;Name语句:重新命名一个文件、目录或文件夹,它的语法结构如下: Name oldpathname As newpathname 其中包括以下两个部分: oldpathname 为字符串表达式,由它来指定已存在的文件名和位置,
在其中包含目录或文件夹以及驱动器。 newpathname也是字符串表达,它指定新的文件名和位置,同样要
包含目录或文件夹以及驱动器。 ;文件的访问语句和函数: ; 所谓的顺序文件,通常指的是普通的文本文件,文件中的字符
包括文本字符及控制字符,如“,”,“chr(14)”,“cr,lf” ,“chr(10)等。 由于这类型文件的信息是按照顺序从头到尾按顺序排列,而且
只提供第一条记录的存储位置,所
文档评论(0)