對文件的操作--建立移動刪除文件夾
對文件夾的建立
<%
dim objfso
set objfso=server.createobject("scripting,filesystemobject")
objfso.createfolder(server.mappath("\c:\newfolder"))
response.write"新文件夾的實際路為"&server.mappath("\C:\newfolder")
set objfso=nothing
%>
對文件夾的移動
<%
dim objfso
set objfso=server.createobject("scripting,filesystemobject")
if objfso.folderExists(server.mappath("\folder1")) then
objfso.moveFolder.server.mappath("\folder1"),server.mappath("c:\folder2")
else
response.write"floder1文件夾不存在無法移動"
end if
set objfso=nothing
%>

對文件夾的刪除
<
dim objfso
set objfso=server.createobject("scripting,filesystemobject")
if objfso.folderExists(server.mappath("\folder1")) then
objfso.deletefolder server.mappath("\folder1")
else
response.write"文件夾不存在，無法刪除"
end if
set objfso=nothing
>