<% set fs=createobject("scripting.filesystemobject") %>
<% MyFolder=server.mappath("/chunfeng/happy/") %>
<%
If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
%>
<%
If fs.folderexists(MyFolder) then
response.write "恭喜,文件夾創建成功!"
Else
response.write "警告:文件夾創建失敗!"
End If
%>
<%
set remdir=fs.getfolder(myfolder)
remdir.delete
set remdir=nothing
If NOT fs.folderexists(myfolder) then
response.write "恭喜,文件夾刪除成功!"
Else
response.write "警告:文件夾刪除失敗!"
End If
%>[1]