vba怎么判断文件类型

vba如何判断文件类型
想用VBA来循环找出一个文件夹下的所有CSV文件，其中可能会有子文件夹。循环遍历好办，但是怎么判断文件夹里的文件哪些是CSV文件呢？请给出示例代码，谢谢。

[解决办法]
http://www.rondebruin.nl/folder.htm
下面这个对象，就可以操作。

VBScript code

Set FSO = CreateObject("scripting.filesystemobject")