向 Folders 集合中添加新的文件夾。

object.Add (folderName) 

參數(shù)

object

必選項(xiàng)。應(yīng)為 Folders 集合的名稱。

folderName

必選項(xiàng)。要添加的新 Folder 的名稱。

說(shuō)明

下面的例子說(shuō)明了使用 Add 方法創(chuàng)建新文件夾的方法。

[JScript]
function AddNewFolder(path,folderName)
{
   var fso, f, fc, nf;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(path);
   fc = f.SubFolders;
   if (folderName != "" )
      nf = fc.Add(folderName);
   else
      nf = fc.Add("New Folder");
}
[VBScript]
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 已經(jīng)存在了，則會(huì)出錯(cuò)。

請(qǐng)參閱

Add 方法 (Dictionary)
應(yīng)用于：Folders 集合