VBS获取当前目录下所有文件夹名字的代码

在VBScript(VBS)编程中，获取当前目录下所有文件夹的名字是一项常见的任务，这有助于进行文件管理和自动化处理。以下是一段实现这个功能的代码详解： 我们需要创建一个`WScript.Shell`对象，它提供了与Windows脚本宿主交互的能力。通过`WScript.CreateObject("wscript.shell")`，我们创建了一个名为`ws`的对象，可以利用它的`CurrentDirectory`属性获取当前工作目录。 ```vbs Set ws = WScript.CreateObject("wscript.shell") w = ws.CurrentDirectory ``` 接着，我们创建一个`Scripting.FileSystemObject`对象，这是VBScript中用于处理文件系统操作的核心类。通过`WScript.CreateObject("scripting.filesystemobject")`，我们得到一个名为`fso`的对象，它可以用来读取、写入或操作文件和文件夹。 ```vbs Set fso = WScript.CreateObject("scripting.filesystemobject") ``` 接下来，我们使用`fso.GetFolder(w)`来获取当前目录的一个`Folder`对象，将其存储在变量`fs`中。这个`Folder`对象代表了当前的工作目录。 ```vbs Set fs = fso.GetFolder(w) ``` 然后，我们通过`fs.SubFolders`获取当前目录下的所有子文件夹，并将它们放入一个集合中，这个集合存储在变量`f`中。`SubFolders`属性返回一个`FolderCollection`，包含了指定文件夹的所有子文件夹。 ```vbs Set f = fs.SubFolders ``` 为了遍历这些子文件夹并显示它们的路径，我们使用`For Each`循环。在循环中，我们将每个子文件夹对象（`uu`）的`Path`属性添加到字符串`t`，并用换行符分隔，以便于在消息框中显示。 ```vbs Dim t t = "" For Each uu In f t = t & uu.Path & vbCrLf Next ``` 我们使用`MsgBox`函数显示包含所有文件夹路径的字符串`t`，以验证代码是否正确运行。 ```vbs MsgBox t ``` 这段代码仅列出当前目录下的顶级文件夹，并不包括子文件夹的子文件夹。如果需要递归获取所有子文件夹的名字，你需要对每个子文件夹进行递归调用，但这已经超出了原始问题的范围。 这段VBScript代码提供了一个简单的方法来获取并显示当前工作目录下所有文件夹的名字。在实际应用中，你可以根据需要修改它，例如将结果写入文件或进行其他处理。记得在运行代码前确保当前目录确实包含至少一个文件夹，否则`SubFolders`集合将为空，导致输出为空。