按键精灵打开文件夹以后，怎样遍历打开文件夹里的文件？

可以，你调试下面代码：

for

i=1

to

3

messagebox

“第一次调取d:\文件夹"&i&"\1.exe”

//重点理解这句

next

我不清楚你的具体需求，所以你理解代码后根据自己需求自行修改。

Function FindAllFiles(FolderPath)\x0d\x0aDim AllFiles,fso,Folder,f,files\x0d\x0aAllFiles = ""\x0d\x0aSet fso = CreateObject("Scripting.FileSystemObject")\x0d\x0aSet Folder = fso.getfolder(FolderPath)\x0d\x0aSet files = Folder.files\x0d\x0aFor Each f In files\x0d\x0aAllFiles = AllFiles &f.name &","\x0d\x0aNext\x0d\x0aSet fso = Nothing\x0d\x0aFindAllFiles = Split(AllFiles, ",")\x0d\x0aEnd Function\x0d\x0a \x0d\x0a//下面是调用方法：\x0d\x0aFileEx = FindAllFiles(文件路径) //文件路径是字符串，要加双撇\x0d\x0aIf UBound(FileEx) >0 Then \x0d\x0a For i = 0 To UBound(FileEx) - 1\x0d\x0a MessageBox FileEx(i)\x0d\x0a Next\x0d\x0aElse \x0d\x0a MessageBox "文件夹没有文件"\x0d\x0aEnd If

---