asp中检查某个文件夹是否存在函数

来源:互联网 发布:陈思 网络 编辑:程序博客网 时间:2024/05/17 23:54
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