VBS dir函数

来源：百度知道 编辑：UC知道 时间：2024/06/01 22:33:45
VBS中如何使用函数检查文件是否存在？

msgbox ReportFileStatus("d:\1.txt")
Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & "文件存在。"
Else
msg = filespec & "文件不存在。"
End If
ReportFileStatus = msg
End Function