快来啊。。。我在线等,请教各位高手,关于轮询目录 有一个目录,这个目录可以自己新建,判断此目录下是否有文件,如果有就把它转移到别的目录下,然后用XML解析入库。如果没有就继续轮询.希望有原代码给我谢谢!如果你有空我可以请吃饭!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 比较简单的可以用fso类库来做,下面是给你写的简单例子:dim objfso as new filesystemobjectdim objfiles as files'判断目录下是否有文件set objfiles =objfso.getfolder(目录路径).filesif objfiles.count=0 then '有文件,剪切到别的目录else '无文件,继续找别的目录endif 调用WinIO32.dll时出错:找不到入口点. 如何使用FSO的CreateFolder在指定目录建立文件夹? 怎样写类模块 关于创建文件夹的问题,请指教! 比较难的问题,50分求助! 关于VB连接MSSQL的问题! 一家公司给我提的问题 问:用INET控件下载文件,如何在下载期间,取消下载?高分求解啊! 十万火急!!!在线等待!!!老板等着要呢!!! 谁要报表控件 activereport 1.1 包括注册 ,(不过我比较黑 要100分 给我发信[email protected]) 有关VB中图形绘制问题,在线等待 求助:在VB中如何判断一个OCX是否已经注册??
dim objfso as new filesystemobject
dim objfiles as files'判断目录下是否有文件
set objfiles =objfso.getfolder(目录路径).files
if objfiles.count=0 then
'有文件,剪切到别的目录
else
'无文件,继续找别的目录
endif