其实没有题目写得那么复杂，就是用计划任务每隔一段时间调用VBS脚本，刷新生成一个文件列表文件用于WEB服务调用。

Option Explicit
On Error Resume Next

'生成列表的文件类型
Const sListFileType = "wmv,rm,wma"

'文件所在的相对路径
Const sShowPath="."

'排序类型的常量定义
Const iOrderFieldFileName = 0
Const iOrderFieldFileExt = 1
Const iOrderFieldFileSize = 2
Const iOrderFieldFileType = 3
Const iOrderFieldFileDate = 4

'排序顺逆的常量定义
const iOrderAsc = 0
const iOrderDesc = 1

'生成列表的文件数量
const iShowCount = 20

 
'显示的日期格式函数
Function Cndate2(date1,intDateStyle)
 dim strdate,dDate1
    strdate=cstr(date1)
    If Isdate(strdate) Then
        If Left(cstr(strdate),1)="0" Then
            dDate1=Cdate("20"+cstr(strdate))
        else
            dDate1=Cdate(strdate)
        End If
    Else
      dDate1=Now()
    End If
    Select case intDateStyle
    Case 1:
     Cndate2 = Cstr(Year(dDate1))+"-"+Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))
    Case 2:
     Cndate2 = Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))
    Case 3:
     Cndate2 = Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"
    Case 4:
    

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

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

	Web www.51ec.org