fso列举文件夹下的文件或文件夹下的文件夹

//方法： 把图片存到一个文件夹下
//从过枚举此文件夹下所有文件名来取得图片的名称
Const filePath = "E:\按键脚本\验证码2\" //定义图片文件夹路径

Set fso = CreateObject("Scripting.FileSystemObject") //创建fso对象 

//列举文件夹下的文件

Set sFolder = fso.GetFolder( filePath ).files //创建文件列表
For Each FolderItem In sFolder     //搜索文件列表中的每一个文件

        TracePrint filePath & FolderItem.Name //调试输出文件名及路径

Next 

//列举文件夹下的文件夹

Set sFolder = fso.GetFolder( filePath ).SubFolders  //创建文件夹列表
For Each FolderItem In sFolder     //搜索文件列表中的每一个文件
        TracePrint filePath & FolderItem.Name //调试输出文件名及路径
Next