FSO对象模型在VB中的应用(2)

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 　　

上一篇： 用API函数控制光驱的开关
下一篇： VB 从零开始编外挂(七)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有