日期:2014-05-17  浏览次数:20919 次

◆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 "))