'函数名：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