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

我想从计算机中删除所有文档（.doc）文件，因为我知道如何从文件夹中获取子文件夹列表，但不知道如何从根目录中获取文件夹列表（Ex C:）

subfoldersInFolder = folder.subFolder

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

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

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通过多种方式获取根对象。下面是两个例子：

1. Use the GetFolder()函数检索根文件夹。
2. Use the RootFolder的财产Drive object.

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