按键精灵怎么读取指定目录下所有文件夹名？

读取文件夹名，参考实例如下：\x0d\x0a文件夹="C:\百度\" \x0d\x0aSet F = CreateObject("Scripting.FileSystemObject")\x0d\x0aIf Not F.FolderExists(文件夹) Then\x0d\x0aMsgBox "未检测到文件夹"\x0d\x0aEnd If\x0d\x0aSet oF = F.GetFolder(文件夹)\x0d\x0aFor Each a In oF.Files\x0d\x0a MSGBOX a.NAME\x0d\x0aNEXT