没想到那么简单.我一开始把问题复杂化了.呵呵.下面的代码可以完成你的要求.
<%
for i=1 to 10000
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath(i&".htm")) then
Response.write i&".htm文件是存在的<br>"
Else
Response.Write i&".htm文件不存在<br>"
End if
Next
%>
[JScript]
function ReportFolderStatus(fldr)
{
var fso, s = fldr;
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.FolderExists(fldr))
s += " exists.";
else
s += " doesn't exist.";
return(s);
}
[VBScript]
Function ReportFolderStatus(fldr)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(fldr)) Then
msg = fldr & " exists."
Else
msg = fldr & " doesn't exist."
End If
ReportFolderStatus = msg
End Function
请参阅
DriveExists 方法 | FileExists 方法 | GetFolder 方法 | GetParentFolderName 方法
应用于:FileSystemObject 对象