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

读取文件夹名，参考实例如下：

文件夹="C:\百度\"

Set F = CreateObject("Scripting.FileSystemObject")

If Not F.FolderExists(文件夹) Then

MsgBox "未检测好李到文件夹"

End If

Set oF = F.GetFolder(文件夹悄袜配启指)

For Each a In oF.Files

MSGBOX a.NAME

NEXT

按键精灵实现唯雀不到的东西可以借用VB语句实现，按键9代码如下

call 修改文件夹内的所有名字("d:\我的文档\桌面\新建文件夹")

Function 修改文件夹内的所有名字(文件夹路径)//按键9编写

    Dim 文件名,fso,folder,f,files

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set folder = fso.getfolder(文件夹路径)

    Set 键巧files = folder.files

    For Each f In files

        文件名 = 文件名 & f.name & ","

    Next

    Set fso = Nothing

    遍历指定目录下所有文件名 = Split(文件名, ",")

    For i=0 to UBound(遍历指定目录下所有文件名)-1

        扩展名分开= Split(遍历指定目录下所有文件名(i), "指亮早.")

        要改的名字=扩展名分开(0)&(i+1)&"图片"//扩展名分开(0)为原名称+修改后的名称，如不需要原名称就去掉（扩展名分开(0)）

        Call Plugin.File.ReNameFile(文件夹路径&"\"&扩展名分开(0)&"."&扩展名分开(1), 文件夹路径&"\"&要改的名字&"."&扩展名分开(1))

    Next

End Function

---