[理学]计算机应用基础AVB11-12-1课件.ppt

第八章 文件 Private Sub Dir1_Click() File1.Path = Dir1.Path File1.Pattern = Combo1.Text End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Command1_Click() If Right(File1.Path，1) = \ Then 获取文件的路径和名称 fullname = File1.Path File1.FileName Else fullname = File1.Path \ File1.FileName End If tmp = Right(fullname，3) 取出文件名中扩展名 第八章 文件 For i = 1 To 3 tmp2 = tmp2 + UCase(Mid(tmp，i，1)) Next i tmp = tmp2 If tmp = JPG Or tmp = GIF Or tmp = BMP Then Image1.Picture = LoadPicture(fullname) 加载图片文件 End If If tmp = TXT Or tmp = FRM Then tmp = Shell(notepad.exe fullname) 调用系统的记事本打开选择的文件 End If If tmp = EXE Or tmp = COM Then tmp = Shell(fullname) End If 直接运行本可执行文件 End Sub 运行结果如图8.5.6所示。 图8.5.6 第八章 文件 8.6 文件操作中的常用函数和语句 1．EOF函数 格式：EOF(文件号) 功能：本函数用来测试文件的结束状态。 2．LOF函数 格式：LOF（文件号） 功能：本函数返回给文件分配的字节数，也就是通常所说的文件长度。如果返回值为0，则表示该文件是空文件。 3．Seek函数/Seek语句 Seek函数格式：Seek(文件号) 功能：本函数返回文件中的当前读/写的位置，返回值为Long类型。 Seek语句格式：Seek [#]文件号，位置 功能：本语句用以设置下一个读/写操作的位置。 8.6.1 文件操作的相关函数 第八章 文件 4．Lock和Unlock语句 格式：Lock [#]文件号[，记录| [开始] To 结束] Unlock [#]文件号[，记录| [开始] To 结束] 本语句可控制其它进程对已打开的文件的部分或整体记录进行存取，其中Lock可实现对文件整体或部分记录加锁，防止别的进程读取记录；Unlock可实现对文件的整体或部分记录解锁，允许别的进程读取记录。 8.6.2 文件操作的语句 VB6.0除提供了许多与文件操作相关的函数以外，还提供了许多直接操作文件的语句，程序员直接调用这些语句就达到特定的功能，从而可更加方便用户对文件或目录进行复制、删除、更改、维护等工作。 1．FileCopy语句 格式：FileCopy 源文件名 目标文件名 功能：把源文件复制到一个目标文件中。 说明：不能复制一个已打开的文件。 第八章 文件 2．Kill语句 格式：Kill 文件名 功能：删除文件。 说明：文件名中可以使用通配符“*”和“？”，从而对文件进行批量操作。 3．Name语句 格式：Name 旧文件名 新文件名 功能：重新命名一个文件或目录。 说明：不能使用通配符；具有移动文件功能；不能对已打开的文件进行重命名操作。 4．ChDrive语句 格式：ChDrive 驱动器 功能： 改变当前驱动器。 说明：如果驱动器为空，则不变；如果驱动器中有多个字符，则只会使用首字母。 5．?MkDir语句 格式：MkDir 文件夹名