dim userdir
userdir = str1=server.mappath("mydir")
set fso = createobject("scripting.filesystemobject")
if fso.folderexists(userdir) then
...'目录已存在
else
fso.createfolder(userdir)
end if
set fso = nothing
<%
dim testFSO
set testFSO = server.createobject("scripting.filesysobject")
if testFSO.FolderExit("c:\mytest") then
response.write "已经存在"
else
testFSO.createFolder("c:\mytest")
end if
%>