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

Question

我想从计算机中删除所有document.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多种方式为根获取对象。这是两个示例：

1. 使用该GetFolder()功能检索根文件夹。
2. 使用对象的RootFolder属性Drive。

我WScript.Echo在每个示例中都添加了一条语句，以演示objFolder变量的用法。