关于XMl解析及轮循，谢谢***************

Question

有一个目录，这个目录可以自己新建，判断此目录下是否有文件，如果有就把它转移到别的目录下，然后用XML解析入库。如果没有就继续轮询.
希望有原代码给我谢谢！如果你有空我可以请吃饭。。

Answer 1

比较简单的可以用fso类库来做,下面是给你写的简单例子:
dim objfso as new filesystemobject
dim objfiles as files'判断目录下是否有文件
set objfiles =objfso.getfolder(目录路径).files
if objfiles.count=0 then
 '有文件,剪切到别的目录
else
 '无文件,继续找别的目录
endif

Answer 2

如果你是想遍历文件夹,在csdn上查查就有了,多得是