| Add 方法(Folders) |
|
Add 方法的语法有以下部分：
| 部分 | 描述 |
| object | 必选。应为 Folders 集合的名称。 |
| folderName | 必选。要添加的新 Folder 名称。 |
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如果 folderName 已经存在，则会出现错误。