VB教程_全套课件_vb-9.pptVIP

第九章 文件（2学时） 9.1 文件系统控件 9.2 文件的读写 9.3 常用的文件操作语句和函数 9.1 驱动器、目录和文件列表框 Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub Sub Form_Load() Item = “所有文件(*.*)” cboType.AddItem Item + Space(20 - Len(Item)) + *.* Item = 窗体文件(*.FRM) cboType.AddItem Item + Space(20 - Len(Item)) + *.FRM Item = 位图文件(*.BMP) cboType.AddItem Item + Space(20 - Len(Item)) + *.BMP cboType.ListIndex = 2 End Sub Sub cboType_Click() filFile.Pattern = Mid(cboType.Text, 21) End Sub Sub filFile_Click( ) ┆ End Sub Sub filFile_DblClick( ) ┆ End Sub 例9.1示例程序 1. 驱动器列表框 Drive属性： [对象.]Drive [= drive] Change事件： 重新设置Drive属性引发Change事件 2. 目录列表框 Path属性 ： [对象.]Path [= pathname] Change事件： 重新设置Path 属性引发Change事件 3. 文件列表框 Path属性： 显示该路径下的文件。 重新设置Path属性引发PathChange事件。 Pattern属性： 显示的文件类型。 [对象.]Pattern [= value] 重新设置Pattern属性引发PatternChange事件。 例如：filFile.Pattern = “*.frm”，显示*.frm文件。 FileName属性： [对象.]FileName [= pathname] 引用时只返回文件名，相当于filFile.List(filFile .ListIndex)，需用Path属性得到其路径；设置时可带路径。 Click、DblClick事件： 例如，单击输出文件名。 例如，双击执行可执行程序。 Sub filFile_Click( ) Sub filFile_DblClick( ) MsgBox filFile.FileName ChDir (dirDirectory.Path) ’ 改变当前目录 End Sub RetVal = Shell(filFile.FileName, 1) ’ 执行程序 End Sub 9.2 文件的读写 文件：存储在外部介质上数据的集合。 按名存取 1. 记录 由若干个相互关联的数据项组成。 例如，由学生的学习成绩信息组成的记录： 数据项 2. 文件及其种类 文件是记录的集合 顺序访问模式：顺序文件，记录可长可短 随机访问模式：随机文件，记录的长度相同 二进制访问模式：二进制文件（可认为记录长度为1） (1) 顺序文件 按顺序依次把记录写入文件； 按顺序依次把记录读出来。 文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。 (2) 随机文件 随机文件可以直接访问文件中的任意一个记录。 记录长度相同 根据记录号访问 (3) 二进制文件 直接把二进制码存放在文件中。 1. 打开文件 Open “文件名” [For 模式] As [#]文件号 [Len=记录长度] (1) 模式 OUTPUT：写操作 INPUT：读操作 APPEND：追加到文件未尾 (2) 文件号 1～511，可以用Fr