第8章 文件11.pptVIP

第八章 文件 基本要求： 掌握文件系统控件（驱动器列表框drvDrive、目录列表框dirDirectory、文件列表框filFile；掌握VB中文件的概念、种类及其结构； 掌握顺序文件的操作：打开、读/写、关闭； 了解随机文件的操作：打开、读/写、关闭； 重点：文件系统控件，VB中文件的概念、种类及其结构；顺序文件的操作：打开、读/写、关闭； 8.1 文件的概念 一、文件 文件：存储在外部介质上数据的集合。按名存取 8.3 随机文件 示例:学生成绩录入示例 示例:学生成绩录入示例 录入：把成绩写入文件 Private Sub Cmdinput_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Open App.Path + \考试成绩.txt For Append As #10 number = xh.Text score1 = Val(bs.Text) score2 = Val(js.Text) Text1 = Text1 number Str(score1) Str(score2) return1 Write #10, number, score1, score2, score1 + score2 Close #10 xh.Text = CStr(Val(number) + 1) End Sub 从文件中读出成绩: Private Sub CmdDwj_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer, score3 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Text2 = Open App.Path + \考试成绩.txt For Input As #10 Do Input #10, number, score1, score2, score3 Text2 = Text2 number Str(score1) Str(score2) Str(score3) return1 Loop Until EOF(10) Close #10 End Sub 8.2 文件系统控件 【例2】使用以下界面进行文件的复制和删除。 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.FileName = Dir1.Path End Sub Private Sub Drive2_Change() Dir2.Path = Drive2.Drive End Sub Private Sub Dir2_Change() File2.FileName = Dir2.Path End Sub Private Sub Command1_Click() 复制 If File1.FileName = Then MsgBox “请选择文件” : Exit Sub End If srcfile = Dir1.Path \ File1.FileName If File2.FileName = Then desfile = Dir2.Path \ File1.FileName Else desfile = Dir2.Path \ File2.FileName End If FileCopy srcfile, desfile File1.Refresh File2.Refresh End Sub Private Sub Command2_Click() 移动 If File1.FileName = Then MsgBox “请选择文件” : Exit Sub End If srcfile = Dir1.Path \ File1.FileName If File2.FileName = Then desfile = Dir2.Path \ File1.FileName Else desfile =