vbscript - 使用 vbscript 从本地驱动器获取文件夹列表

Question

我想从我的计算机中删除所有文档(.doc)文件，为此我知道如何从文件夹中获取子文件夹列表，但不知道如何从根目录中获取文件夹列表(例如 C:)

subfoldersInFolder = folder.subFolder

给出一个文件夹的所有子文件夹。但据说我想要 C: 中的所有文件夹，

 Set colDrives = objFSO.Drives
 For Each objDrive in colDrives
 objDrive.subFolder  //doesn't work
 Next

Answer 1

For Each objFolder In objFSO.GetFolder("C:\").SubFolders
    WScript.Echo objFolder.Path
Next

' or...

For Each objFolder In objFSO.GetDrive("C:").RootFolder.SubFolders
    WScript.Echo objFolder.Path
Next

编辑:sundar nataraj Сундар 要求我详细介绍。

这是一个基本的 For迭代 SubFolders 的循环收藏。 SubFolders属性仅适用于 Folder目的。您可以获得 Folder以多种方式为根对象设置对象。这里有两个例子:

使用 GetFolder()函数来检索根文件夹。

使用 RootFolder Drive 的属性目的。

我添加了一个 WScript.Echo每个示例中的语句来演示 objFolder 的使用多变的。