按键精灵如何判断文件名称，比如说文件夹里面有，王者1，王者2，王者3，大师1，大师2，大师3，

Function 遍历指定目录下所有文件名(文件夹路径)
    //注意：返回的是数组变量，存储着每一个文件名。
    //例子：数组 = lib.文件.遍历指定目录下所有文件名("C:\")
    //      For i=0 to UBound(数组)-1
    //          TracePrint 数组(i)
    //      Next
    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(文件名, ",")
End Function