<%@LANGUAGE="VBSCRIPT"%>
<html>
</head>
<body>
<%
dim fsoObj,newPath
set fsoObj=server.CreateObject("scripting.FileSystemObject")
newPath=fsoObj.BuildPath ("e:\第17章\FileSystemObject对象\","test")
if err.number>0 then
response.Write(err.description)
else
response.Write(newPath)
end if
%>
</body>
</html>
