悠悠博客 关注Ajax技术与web开发

GetFolder 方法
返回与指定的路径中某文件夹相应的 Folder 对象。

object.GetFolder(folderspec)

参数
object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。folderspec 是指定文件夹的路径（绝对路径或相对路径）。

说明
如果指定文件夹不存在，则会出现错误。

下面例子举例说明如何使用 GetFolder 方法返回文件夹对象：

Sub AddNewFolder(path, folderName)
Dim fso, f, fc, nf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fc = f.SubFolders
If folderName <> "" Then
Set nf = fc.Add(folderName)
Else
Set nf = fc.Add("New Folder")
End If
End Sub