资源描述:
《利用计划任务和vbs脚本实现自动web共享文件夹里的文件》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件其实没有题目写得那么复杂,就是用计划任务每隔一段时间调用VBS脚本,刷新生成一个文件列表文件用于WEB服务调用。代码如下:OptionExplicitOnErrorResumeNext'生成列表的文件类型ConstsListFileType=//wmv,rm,wma〃'文件所在的相对路径ConstsShowPath=〃・〃'排序类型的常量定义ConstiOrderFieldFileName=0ConstiOrderFieldFileExt=lConstiOrderFieldF
2、ileSize=2ConstiOrderFieldFileType=3ConstiOrderFieldFileDate=4'排序顺逆的常量定义constiOrderAsc=0constiOrderDesc=l'生成列表的文件数量constiShowCount=20'显示的日期格式函数FunctionCndate2(datel,intDateStyle)dimstrdate,dDatelstrdate=cstr(datel)IfIsdate(strdate)ThenIfLeft(cstr(strdate),1)二〃0"ThendDa
3、tel=Cdate(〃2O^+cstr(strdate))elsedDatel=Cdate(strdate)EndlfElsedDatel=Now()EndlfSelectcaseintDateStyleCasel:Cndate2=Cstr(Year(dDatel))+〃-〃+Cstr(Month(dDatel))+〃-〃+Cstr(Day(dDatel))Case2:Cndate2=Cstr(Month(dDatel))++Cstr(Day(dDatel))Case3:Cndate2=Cstr(Month(dDatel))+"月
4、〃+Cstr(Day(dDatel))+〃日"Case4:Cndate2=Cstr(year(dDatel))+〃年"+Cstr(Month(dDatel))+〃月〃+Cstr(Day(dDatel))+〃日〃EndSelectEndFunctionFunctionListFile(strFiletype,intCompare,intOrder,intShowCount)DimsListFileDimfso,f,f1,fc,s,ftype,fcount,i,j,kDimtl,t2,t3,t4,t5DimiMonth,iDaysLi
5、stF订e二〃〃Setfso二CreateObject("Scripting.FileSystemObject〃)Setf=fso・GetFolder(sShowPath)Setfc二f.Filesfcount二fc.countredimarrFiles(fcount,5)redimarrFiles2(fcount,5)i=0'排序ForEachflinfcftype=right(fl・name,len(ftrrev(fl.name,〃・“))arrFiles(i,0)=f1.namearrFiles(i,1)二ftypearrF
6、iles(i,2)=fl.sizearrFiles(i,3)二fl.typearrFiles(i,4)二f1.DateLastModifiedi=i+lNextFori=0tofcount-1forj=i+Itofcoimt-lselectCaseintCompareCaseiOrderFieldFileName,FileExt,iOrderFieldFileType:IfarrFiles(i,intCompare)g1.name)-insiOrderFieldtjarrFiles(j,intCompare)thentl=arrF
7、iles(i,0)t2=arrFiles(i,1)13=arrFiles(i,2)t4=arrFiles(i,3)t5=arrFlies(i,4)arrFiles(i,O)=arrFiles(j,0)arrFiles(i,l)=arrFiles(j,1)arrFiles(i,2)=arrFiles(j,2)arrFiles(i,3)=arrFiles(j,3)arrFiles(i,4)=arrFiles(j,4)arrFiles(j,0)=tlarrFi1es(j,1)二t2arrFiles(j,2)=t3arrFiles(j,3
8、)=t4arrFiles(j,4)二t5endifCaseiOrderFieldFileSize:Ifcdbl(arrFiles(i,intCompare))gt;cdbl(arrFiles(j,intCompare))thentl=arrFile