【速贷客服电话】
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: 
Cndate2 = Cstr(year(dDate1))+"年"+ Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日" 
End Select 
End Function