51问答网 > vbs代码打开指定路径下的所以文件夹（在不知道文件夹名字的情况下）

vbs代码打开指定路径下的所以文件夹（在不知道文件夹名字的情况下）

2025-03-12 01:22:55

推荐回答（1个）

回答1：

根据指定路径中的文件夹返回相应的
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

你可以参考下