asp程序用VBSCRIPT判断文件夹是否存在代码

<%   
Function IsFloderExist(strFolderName)   
SET FSO=Server.CreateObject("Scripting.FileSystemObject")   
IF(FSO.FolderExists(strFolderName))THEN   
IsFloderExist = True   
ELSE   
IsFloderExist = False   
END IF   
SET FSO=NOTHING   
End Function   
%>  

调用时直接用：

<%
if IsFloderExist(folderpath) then
  ’如果存在即执行代码
end if
%>

即可。