FSO对象模型在VB中的应用

（三）Folder对象

　　在FSO 对象模型中，提供了丰富的有关文件夹操作的方法，这些方法分别是：

FileSystemObject对象	有关文件夹的方法
CreateFolder	创建一个文件夹
DeleteFolder	删除一个文件夹
MoveFolder	移动一个文件夹
CopyFolder	复制一个文件夹
FolderExists	查找一个文件夹是否在驱动器上
GetFolder	获得已有Folder对象的一个实例
GetParentFolderName	找出一个文件夹的父文件夹的名称
GetSpecialFolder	找出系统文件夹的路径

Folder对象的方法	用途
Delete	创建一个文件夹
Move	移动一个文件夹
Copy	复制一个文件夹
Name	检索文件夹的名称

　　在此需要强调一点，前面我们曾经提到过FSO对象模型包含的方法是冗余的，所以Folder对象的Delete、Move、Copy方法和FileSystemObject对象的DeleteFolder、MoveFolder、CopyFolder方法实际上是相同的，因此在实际使用中可以任选其中的一种。

　　和Drive对象一样，下面通过实例演示Folder对象的应用。在VB下新建一个工程，然后在上面添加三个命令按钮，然后在Form1的通用部分加入以下代码：

Option Explicit 　Dim fsoTest As New FileSystemObject 　Dim folder1 As Folder 　并且分别在三个命令按钮的click事件输入以下代码： Private Sub CmdCreate_Click() 　' 获取 Folder 对象。 　Set folder1 = fsoTest.GetFolder(“C:") 　'创建文件夹 　fsoTest.CreateFolder (“C:\Test") 　MsgBox “folder C:\Test has created" End Sub Private Sub CmdDelete_Click() 　' 获取 Drive 对象。 　Set folder1 = fsoTest.GetFolder(“C:") 　'删除文件夹 　fsoTest.DeleteFolder (“C:\Test") 　MsgBox“folder C:\Test has deleted" End Sub Private Sub CmdGetPro_Click() 　'获取文件夹的有关信息 　Dim sReturn As String 　Set folder1 = fsoTest.GetFolder(“C:\Windows") 　'sReturn = “The folder's Attributes is " ＆ folder1.Attributes ＆ vbCrLf 　'获取最近一次访问的时间 　sReturn = sReturn ＆ “The folder's last access time is " ＆ folder1.DateLastAccessed ＆ 　vbCrLf 　'获取最后一次修改的时间 　sReturn = sReturn ＆ “The folder's last modify time is " ＆ folder1.DateLastModified ＆ vbCrLf 　'获取文件夹的大小 　sReturn = sReturn ＆ “The folder's size is " ＆ FormatNumber(folder1.Size / 1024, 0) 　sReturn = sReturn ＆ “Kb" ＆ vbCrLf 　'判断文件或文件夹类型 　sReturn = sReturn ＆ “The type is " ＆ folder1.Type ＆ vbCrLf 　MsgBox sReturn End Sub

　　上述代码中提到的CreateFolder方法的语法形式为object.CreateFolder(foldername)。foldername指定了要创建的文件夹的名称，而DeleteFolder方法的语法形式为object.DeleteFolder folderspec[,force]，其中，folderspec用来指定要删除的文件夹的名称，force是一个可选的布尔型参数，如果希望删除只读属性的文件夹则将该值设为TRUE，默认为FALSE。至于代码中用到的 Folder 对象的属性限于篇幅，就不详细介绍了，读者可参考VB文档中的相关内容。

　　（四）File对象和TextStream对象

　　由于有关File对象的复制，删除，移动等操作和Folder对象类似，所以这部分内容就不再重复。这里主要讲述利用File对象和TextStream对象操作文本文件。

　　通常对文本文件的操作包括在文本文件中创建数据，在文本文件中添加数据，删除文本文件的数据等操作。这些操作都可以通过File对象和FileSystemObject对象的相关方法完成。不过在使用之前，首先要创建一个文本文件，这可以通过三种方法完成。一种方法是使用FileSystemObject对象的 CreateTextFile 方法。要创建一个空文本文件，可以用以下语句：

Dim fsoTest As New FileSystemObject, fil1 As File Set fil 1= fsoTest.CreateTextFile(“c:\testfile.txt", True)

　　第二种方法是使用 FileSystemObject 对象带 ForWriting 标志设置的 OpenTextFile 方法。

Dim fsoTest As New FileSystemObject, ts1 As New TextStream Set ts1 = fsoTest.OpenTextFile(“c:\testfile.txt", ForWriting)

　　第三种方法是使用File对象的带 ForWriting 标志设置的 OpenAsTextStream 方法：

Dim fsoTest As

查看本文来源