创建文件应用程序.pptVIP

第13章 创建文件应用程序 《VB6.0程序设计》 本章内容提要 13.1 File System Object模型 13.1 File System Object模型 13.1 File System Object模型 13.2 FSO对象模型编程 13.2 FSO对象模型编程 13.2 FSO对象模型编程 13.2 FSO对象模型编程 13.2 FSO对象模型编程 13.2 FSO对象模型编程 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.3 用传统的文件I/O语句和函数处理文件 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.4 文件系统控件和相关语句 13.5 综合实例 13.5 综合实例 例13-13 File对象和TextStream对象。 13.4.3 文件列表框（FileListBox） 4．删除文件（Kill语句） 该语句的使用格式为：Kill 文件名。 例如，删除c:\My Documents目录下所有文件的代码如下： Kill c:\My Documents\*.* 5．设置文件的属性（SetAttr语句） 该语句的使用格式为SetAttr 文件名，属性值。 例如，设置为只读的并且隐藏的文件的代码如下： SetAttr D:\MyFile\style.txt,3 13.4.3 文件列表框（FileListBox） 6．文件改名（Name语句） 该语句的使用格式为：Name 原文件名 As 新文件名。 7．获取文件名和目录名（Dir函数） 该函数的使用格式如下： Dir[（[文件名或目录名]，[属性]）] 其函数功能是返回一个与指定属性相匹配的文件名或目录名。 8．打开或执行一个文件（Shell语句） 该语句的使用格式为：Shell 外部文件名[，窗口格式] 在VB6.0系统中，当使用Shell语句去调用外部可执行文件时，采用异步调用方式调用，即VB程序并不等待该任务运行结束才执行shell语句后的代码，而是继续向下运行，所以会占用更多的系统资源。 13.4.4 文件系统控件 1．建立驱动器列表框和目录列表框的联系 驱动器列表框改变时将发生Change事件，在事件中指定目录列表框的Path属性，就可实现关联，如Dir1.Path=Drive1.Drive。 2．建立目录列表框和文件列表框的联系 目录列表框改变时将发生Change事件，在事件中指定文件列表框的Path属性，就可实现关联，如File1.Path= Dir1.Drive。 例13-11 设计一个程序检测驱动器信息。 Dim fsoTest As New FileSystemObject? Dim drv1 As Drive, sReturn As String Set drv1 = fsoTest.GetDrive(“C:\) sReturn = Drive “C:\ vbCrLf sReturn = sReturn VolumeName drv1.VolumeName vbCrLf sReturn = sReturn Total Space: _ FormatNumber(drv1.TotalSize / 1024, 0) sReturn = sReturn Kb vbCrLf sReturn = sReturn Free Space: FormatNumber(drv1.FreeSpace / 1024, 0) sReturn = sReturn Kb vbCrLf sReturn = sReturn FileSystem: drv1.FileSystem vbCrLf MsgBox sReturn 包头职业技术学院计算机与信息工程系 包