当前位置: 代码迷 >> ASP >> ◆asp检测文件是否存在有关问题
  详细解决方案

◆asp检测文件是否存在有关问题

热度:55   发布时间:2012-03-07 09:13:51.0
◆asp检测文件是否存在问题
以下是我的两个检测文件的函数,我目录下明明是有test.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      

Function   FolderExits(Folder)
Folder=Server.Mappath(Folder)
Set   FSO=   Server.CreateObject( "Scripting.FileSystemObject ")
IF   FSO.FolderExists(Folder)   Then
      FolderExits=true
Else
      FolderExits=false
End   IF  
End   Function


%>


<%
ee=ReportFileStatus( "test.txt ")
ff=FolderExits( "test.txt ")
%>
<%=ee%> <br>  
<%=ff%>

------解决方案--------------------
Set fso = Server.CreateObject( "Scripting.FileSystemObject ")
------解决方案--------------------
路径不对. 如果是当前目录下 try: ee=ReportFileStatus(Server.mappath( "test.txt ")) ff=FolderExits(Server.mappath( "test.txt "))
  相关解决方案