读书人

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

发布时间: 2012-03-07 09:13:51 作者: rapoo

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

读书人网 >ASP

热点推荐