FSO对象模型在VB中的应用 （二）
上一篇 /
下一篇 2007-08-22 18:00:17
/ 个人分类：VBScript
（三）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) |
第三种方法是�
收藏
举报
TAG:
VBScript
