<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个用来操作的文件夹
if not myfileobject.folderexists(server.mappath("newfolder")) then
MyFileObject.CreateFolder server.mappath("newfolder")
'else
'删除这个文件夹
'MyFileObject.DeleteFolder server.mappath("newfolder")
end if
%>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f2 = fso.GetFile(server.mappath("a.htm"))
if not fso.fileexists(server.mappath("newfolder/a.htm")) then
f2.copy server.mappath("newfolder/a.htm")
end if
'MyFileObject.DeleteFolder server.mappath("newfolder")
%>