第12章VB设计文件应用程序.pptVIP

【例】检查当前目录下是否存在文件夹myVB，并查看其大小： Dim objFso As New FileSystemObject Dim objFolder As Folder, FileName As String FileName = App.path “\myVB” If objFso.FolderExists(FileName) Then Set objFolder = objFso.GetFolder(FileName) Debug.Print objFolder.Size Else Debug.Print 该文件夹不存在！ End If 访问文件夹示例 * (1)CopyFolder方法：拷贝文件夹 oFSO.CopyFolder source, dest [, overwrite] (2)CreateFolder方法：创建文件夹 oFSO.CopyFolder foldername (3)DeleteFolder方法：删除文件夹 oFSO.DeleteFolder foldername [,force] (4)MoveFolder方法：移动文件夹 oFSO.MoveFolder source, destination FileSystemObject对象访问文件夹(二) * (1) GetParentFolderName方法：获取父文件夹 set oFolder = oFSO.GetParentFolderName(path) (2) GetSpecialFolder方法 set oFolder = oFSO.GetSpecialFolder(folderspec) folderspec取值： WindowsFolder 0 Windows操作系统文件夹 SystemFolder 1 系统文件夹 TemporaryFolder 2 系统临时文件夹 FileSystemObject对象访问文件夹(三) * 三种对象来支持文件的访问： 文件本身的信息可以通过File对象来访问，如文件的大小、创建日期、文件属性等，该对象还提供文件的复制、移动和删除等。 也可以通过FileSystemObject对象来执行文件的创建、复制、删除等操作。 文件的读写由TextStream对象来支持，但是该对象仅用于文本文件的操作。 访问文件 * (1) FileExist方法：返回真假 (2) GetFile方法：返回一个指定的File对象 (3) GetFileName方法：从指定路径名中返回文件名 (4) OpenTextFile方法：打开一个文本文件，返回一个TextStream对象 FileSystemObject对象访问文件(一) * Dim oFSO As New FileSystemObject Dim oTS As TextStream ‘创建一个新的文本文件，如果已经存在则覆盖 Set oTS = oFSO.CreateTextFile(c:\test.txt, True) oTS.WriteLine(This is a test.) oTS.Close Set oTS = Nothing ‘打开文本文件，读取全部内容 Set oTS = oFSO.OpenTextFile(c:\test.txt, ForReading) Text1 = oTS.ReadAll() oTS.Close Set oTS = Nothing TextStream对象示例 * 先创建TextStream对象供读 Set oTS=oFSO.OpenTextFile(“a.txt,ForReading) Read：从一个文件中读取指定数量的字符 strTemp = oTS.Read(10) ReadLine：读取一整行，不包括换行符 strTemp = oTS.ReadLine ReadAll：读取一个文本文件的所有内容 Skip：跳过指定数量的字符 oTS.Skip(10) SkipLine：跳过一行 使用TextStream对象读文件 * 先创建TextStream对象供写 Set oTS=oFSO.OpenTextFile(“a.txt,ForWriting) 或 Set oTS=oFSO.OpenTextFile(“a.txt,ForAppending) Write：向一个文件中写入指定的字符 oTS.Write(“Hello”) oTS.Write(strTemp) WriteLine：向一个文件中写入指定的字符和换行符 oTS.WriteLine(strTemp) WriteBlankLine：向一个文件中写