ASP判断文件是否存在的函数
‘[测试某个文件存在否]
‘函数名:CheckFile
‘作 用:测试某个文件存在否
‘参 数:ckFilename —- 被测试的文件名(包括路径)
‘返回值:文件存在返回True,否则False
‘**************************************************
Public Function CheckFile(ByVal ckFilename)
Dim M_fso
CheckFile=False
Set M_fso = CreateObject(“Scripting.FileSystemObject”)
If M_fso.FileExists(ckFilename) Then
CheckFile=True
End If
Set M_fso = Nothing
End Function


寒林

www.3code.cn 专注WordPress企业主题