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