| GetFolder 方法 |
|
GetFolder 方法的语法有以下部分:
| 部分 | 描述 |
| 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