[工学]VB教程第2版第10章 文件.ppt

10.2.3 文件操作 4．读取文件数据 从文本文件中读取数据，可以使用TextStream对象的Read、ReadLine和ReadAll方法。 Read方法：从一个文件中读取指定数量的字符。 ReadLine方法：读取一整行，但不包括换行符。 ReadAll方法：读取一个文本文件的所有内容。 用Read和ReadLine方法时，可以使用Skip和SkipLine方法跳过部分的内容。 语法： TextStream 对象.Read(字符) TextStream 对象.ReadLine TextStream 对象.Readall TextStream 对象.Skip(字符数) 10.2.3 文件操作 【例10-4】使用FSO对象模型在窗体中输入学生成绩到“考试成绩.txt”文件中。 界面设计：在窗体中放置五个文本框Text1(0)～Text1(4)控件数组，用来输入五个字段。三个按钮Command1～Command3，分别用来“创建文件”、“写入记录”和“结束”。运行界面如图10.5所示。 图10.5 运行界面 10.2.3 文件操作 程序代码如下： Dim Fso As New FileSystemObject Dim TextFile As TextStream ? 单击“创建文件”按钮创建一个新文本文件。 Private Sub Command1_Click() 单击创建文件按钮 Set Fso = CreateObject(Scripting.FileSystemObject) 创建新文件 Set TextFile = Fso.CreateTextFile(c:\考试成绩.txt, True) Command2.Enabled = True End Sub ? 单击“写入记录”按钮将文本框中的内容组合成一个字符串写入文件中，每个记录为一行即一个字符串。 10.2.3 文件操作 用记事本打开“c:\考试成绩.txt”文件，显示的文件内容如图10.6所示。 图10.6 文件内容 10.2.3 文件操作 5．移动、复制和删除文件 （1）移动文件 使用File.Move或FileSystemObject.MoveFile方法可以移动一个文件。 语法： File.Move 目标路径 FileSystemObject.MoveFile 源路径,目标路径 （2）复制文件 使用File.Copy或FileSystemObject.CopyFile方法可以复制文件。 语法： File.Copy目标路径[,是否覆盖] FileSystemObject.CopyFile 源文件,目标路径[,是否覆盖] （3）删除文件 使用File.Delete或FileSystemObject.DeleteFile方法都是删除一个指定的文件。 语法： File.Delete[删除设置] FileSystemObject.DeleteFile 文件名,目标路径[,删除设置] 10.2.3 文件操作 【例10-5】在窗体中放置三个文件系统控件驱动器列表框、目录列表框和文件列表框，创建菜单实现“新建文件夹”、“复制文件”、“删除”功能。 （1）设计菜单，菜单编辑器如图10.7所示。 图10.7 菜单编辑器 10.2.3 文件操作 （2）设计界面，在窗体中放置驱动器列表框Drive1、目录列表框Dir1和文件列表框File1。运行界面如图10.8所示。 图10.7 菜单编辑器 10.2.3 文件操作 （3）程序设计 Dim Fso As New FileSystemObject Dim Folder1 As Folder Dim TextF1 As TextStream ? Private Sub Form_Load() 装载窗体 Set Fso = CreateObject(Scripting.FileSystemObject) End Sub ? Private Sub Dir1_Change() 改变目录 File1.Path = Dir1.Path Set Folder1 = Fso.getfolder(Dir1.Path) End Sub ? Private Sub Drive1_Change() 改变驱动器 Dir1.Path = Drive1.Drive End Sub 10.2.3 文件操作 选择“复制文件”菜单，在所选文件的目录中复制一个文件，文件名为“新建文件”，如果文件已存在则覆盖。 Private Sub mnuCopyFile_Click() 复制文件 Fso.CopyFile Dir1.Path \ File1.FileName, D