<p>fso检测文件存在FileExists或文件夹是否存在FolderExists,<br />
'==============================<br />
'函 数 名:IsFile<br />
'作 用:检测文件是否存在<br />
'参 数:文件相对路径FilePath<br />
'==============================<br />
Function IsFile(FilePath)<br />
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")<br />
If (Fso.FileExists(Server.MapPath(FilePath))) Then<br />
IsFile=True<br />
Else<br />
IsFile=False<br />
End If<br />
Set Fso=Nothing<br />
End Function<br />
<br />
'==============================<br />
'函 数 名:IsFolder<br />
'作 用:检测文件夹是否存在<br />
'参 数:文件相对路径FolderPath<br />
'==============================<br />
Function IsFolder(FolderPath)<br />
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")<br />
If Fso.FolderExists(Server.MapPath(FolderPath)) Then <br />
IsFolder=True<br />
Else<br />
IsFolder=False<br />
End If<br />
Set Fso=Nothing<br />
End Function</p>