(编辑:jimmy 日期: 2024/12/23 浏览:2)
返回与指定的路径中某文件夹相应的 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 IfEnd Sub