第8章 文件.ppt免费

8.1 文件及其基本操作 8.2 顺序文件 8.3 随机文件 8.4 二进制文件 8.5 文件操作用的三个控件 8.6 几个文件操作命令和函数 例8-11　以二进制方式打开例8-8建立的文件“f:\VB例程\student.rec”，在窗体浏览。 例8-12　复制文件。 界面设计请参见课本316页。 例8-13　三列表框联动。 程序代码： 例8-14　利用3个文件控件存取文件（形成文件名）。 程序代码： Option Explicit Private Type student no As Integer 2字节 name As String * 8 8字节 sex As String * 2 2字节 math As Integer 2字节 physics As Integer 2字节 program As Intege End Type Private Sub Command1_Click() Dim s As student Open App.Path + “\student.rec” For _ BinaryAs #1 以二进制方式打开文件 While Not EOF(1) Get #1, , s If s.no 0 Then 检查记录完整性 Print s.no; s.name; s.sex; s.math; s.physics; s.physics; s.program End If Wend Close #1 End Sub 由于按二进制格式打开的文件在读写时照搬每个字节的内容，所以非常适合拷贝文件。本例要求在两个文本框中分别输入源文件和目标文件的路径和名称，单击复制按钮完成文件的复制工作。 复制程序每次从源文件中读出10个字符，送入字符串变量Str中，接着把Str的内容写到目的文件中去。 当程序出错时，立即跳到标号OpenError处继续执行。这一处理主要是防止使用人员忘记在文本框中输入文件名。 Private Sub cmdCopy_Click() Dim Str As String * 10 Dim num1 As Integer, num2 As Integer, msg As Integer On Error GoTo OpenError num1 = FreeFile Open txtSource.Text For Binary As #num1 num2 = FreeFile Open txtDestination.Text For Binary As #num2 Do While Not EOF(num1) Get #num1, , Str Put #num2, , Str Loop Close msg = MsgBox(“删除原文件吗？”, vbYesNo +_ vbQuestion + vbDefaultButton2, 复制完成) If msg = vbYes Then Kill txtSource.Text Exit Sub OpenError: MsgBox 请键入文件名,_ vbExclamation, 错误 Close End Sub 8.5.1 驱动器列表框 8.5.2 目录列表框 8.5.3 文件列表框 8.5 文件操作用的三个控件 驱动器列表框实际上是一个下拉的列表框（如下图），它用于提供系统当前拥有的所有磁盘驱动器给用户作出选择。因此，用户可以通过该控件来选择或输入所要操作的磁盘驱动器。 驱动器列表框使用工具箱中的图标 来绘制。驱动器列表框默认的名称为Drive1，2，… , 建议命名前缀为Drv。 8.5.1 驱动器列表框 Drive属性 用来设置要操作的驱动器，Drive属性可以看作是一个特殊的字符串变量，它不能在属性窗口的属性表中设置，它只能在程序代码中设置或访问。 要在程序代码中设置Drive属性的值可以使用赋值语句， 一般格式： 驱动器列表框名. Drive = 驱动器名 说明：程序运行之后，当用户单击驱动器列表框中的某一驱动器图标时， VB系统自动把该图标所表示的驱动器的名字赋