(j,3)
     arrFiles(i,4) = arrFiles(j,4)

     arrFiles(j,0) = t1
     arrFiles(j,1) = t2
     arrFiles(j,2) = t3
     arrFiles(j,3) = t4
     arrFiles(j,4) = t5
    end if
   Case iOrderFieldFileSize:
    If cdbl(arrFiles(i,intCompare))>cdbl(arrFiles(j,intCompare)) then
     t1 = arrFiles(i,0)
     t2 = arrFiles(i,1)
     t3 = arrFiles(i,2)
     t4 = arrFiles(i,3)
     t5 = arrFiles(i,4)

     arrFiles(i,0) = arrFiles(j,0)
     arrFiles(i,1) = arrFiles(j,1)
     arrFiles(i,2) = arrFiles(j,2)
     arrFiles(i,3) = arrFiles(j,3)
     arrFiles(i,4) = arrFiles(j,4)

     arrFiles(j,0) = t1
     arrFiles(j,1) = t2
     arrFiles(j,2) = t3
     arrFiles(j,3) = t4
     arrFiles(j,4) = t5
    end if
   Case iOrderFieldFileDate:
    If Cdate(arrFiles(i,intCompare))>Cdate(arrFiles(j,intCompare)) then
     t1 = arrFiles(i,0)
     t2 = arrFiles(i,1)
     t3 = arrFiles(i,2)
     t4 = arrFiles(i,3)
     t5 = arrFiles(i,4)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

在google里搜索更多利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件

	Web www.51ec.org

上一篇信息学院： ASP漏洞解析及黑客防范法

下一篇信息学院： 解决IIS SMTP无法发信的故障…