vb 中文件系统, 目录的操作

FSO 对象模型编程包括三项主要任务：
FSO 对象模型包含在一个称为 Scripting 的类型库中，此类型库位于 Scrrun.Dll 文件中。如果还没有引用此文件，请从“属性”菜单的“引用”对话框选择“Microsoft Scripting Runtime”项。然后就可以使用“对象浏览器”来查看其对象、集合、属性、方法、事件以及它的常数。

使用CreateObject 方法，或将一个变量声明为 FileSystemObject 对象类型来创建一个 FileSystemObject 对象。


例如: 下面代码创建目录,删除目录

Private Sub Form_Load()

'获得 FileSystemObject 的实例。
Dim fso As New FileSystemObject
Dim fldr As Folder, s As String
'获取 Drive 对象。
Set fldr = fso.GetFolder("c:")
' 显示父文件夹名。
Debug.Print "Parent folder name is: " & fldr
' 显示驱动器名。
Debug.Print "Contained on drive " & fldr.Drive
' 显示根文件名。
If fldr.IsRootFolder = True Then
Debug.Print "This folder is a root folder."
Else
Debug.Print "This folder isn't a root folder."
End If
' 用 FileSystemObject 对象创建一个新的文件夹。
fso.CreateFolder ("c:\Bogus")
Debug.Print "Created folder C:\Bogus"
' 显示文件夹的基本名称。
Debug.Print "Basename = " & fso.GetBaseName("c:\bogus")
' 删除新建的文件夹。
fso.DeleteFolder ("c:\Bogus")
Debug.Print "Deleted folder C:\Bogus"
End Sub