第八章文件系统课题.ppt

语法格式：FreeFile[(rangenumber)] 2、FreeFile 函数 返回一个 Integer，代表下一个可供 Open 语句使用的文件号。 指定 0（缺省值）则返回一个介于 1-255 之间的文件号。指定 1 则返回一个介于 256-511 之间的文件号。 为0 或 1 3、Reset 语句 关闭所有用 Open 语句打开的磁盘文件。并将文件缓冲区的所有内容写入磁盘。 4、EOF 函数 返回一个 Integer，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。 语法格式：EOF(filenumber) 文件号 5、LOF 函数 返回一个 Long，表示用 Open 语句打开的文件的大小，该大小以字节为单位。 语法格式：LOF(filenumber) 文件号 6、FileLen 函数 返回一个 Long，代表一个文件的长度，单位是字节。它用在文件未打开时。 语法格式：FileLen(Pathname) 路径文件名 7、关于记录长度问题： 在随机文件中用Open语句时，记录长度应尽量与实际记录长度一致。若不一样时，只能大不能小。 例：用随机文件建立通讯录。通讯录包括姓名、电话号码和邮政编码。 在标准模块中先定义数据类型： Option Explicit Public Type Txl Name As String * 4 Tel_Number As String * 8 Post_Code As String * 6 End Type 窗体模块中的代码： Option Explicit Dim Person As Txl Dim Recnum As Long, RecL As Long Private Sub CmdExit_Click() reset End End Sub Private Sub CmdPut_Click() RecL = Len(Person) Open d:\address For Random As #1 Len = RecL Recnum = LOF(1) \ RecL + 1 TxtRec = Str(Recnum) If TxtName And TxtTel And TxtPost Then Person.Name = TxtName Person.Tel_Number = TxtTel Person.Post_Code = TxtPost Put #1, Recnum, Person TxtName = TxtTel = TxtPost = Recnum = Recnum + 1 TxtRec = Str(Recnum) TxtName.SetFocus Else MsgBox (“数据输入不能有空，请重新输入) End If Close #1 End Sub * 第八章 文件系统 8-1 文件的基本概念 文件是存放在外部介质(如硬盘、软盘、光盘等等)上数据的集合，对存储在外部介质上的数据的存取都是以文件为对象进行的。 一、文件的分类 VB中把文件分为三类： 1、顺序文件 --- 其中的内容全部是文本。 2、随机文件 --- 由相同长度的记录集合组 成，记录中可以有一个或多 个字段。 3、二进制文件 --- 能访问任意结构的文件。 二、文件的命名 为了标识和区分每个文件，就必须对文件进行命名。命名规则： DOS操作系统中：八个字符的文件名加上三个字符的扩展名。 例：Autoexec.bat 文件名，最长只能用8个字符 点符号 扩展名，最长只能用3个字符 Windows 98/2000/XP操作系统中：支持长文件名，可以使用最长255个字符来命名文件名。 8-2 直接操作DOS文件或win98/2000/xp文件 在VB中利用语句能直接对DOS文件进行操作 1、ChDrive语句 ------ 改变当前的驱动器。 语法格式：ChDrive drive 例：ChDrive “d:” 2、ChDir 语句 ---- 改变当前路径 (改变目录或文件夹) 语法格式：ChDir path 例：ChDir “\庞一平” 4、RmDir --- 删除一个存在的空目录。 老的路径和文件名 新的路径和文件名 3、MkDir 语句 --- 创建一个新的文件夹 语法格式：MkDir path 例：MkDir “\庞一平” 5、Na