日期:2008-11-17  浏览次数:21171 次

  检查指定的磁盘、文件夹、或是文件是否存在:
<%
dim objfso
set objfso=server.createobject("scripting.filesystemobject")

if objfso.driveexists("c:") then
response.write"磁盘C是存在的"
else
response.write"磁盘C是不存在的"
end if

if objfso.folderexists(server.mappath("Inetpub")) then
response.write"Inetpub文件夹是存在的"
else
response.write"Inetpub文件夹是不存在的"
end if

if objfso.fileexists(server.mappath("ww.ASP")) then
response.erite"ww.ASP文件是存在的"
else
response.write"ww.ASP文件是不存的"
end if

set objfso=nothing
%>

  对文件的操作--建立、移动、删除文件夹
  对文件夹的建立
<%
dim objfso
set objfso=server.createobject("scripting.filesystemobject")
objfso.createfolder(server.mappath("newfolder"))
response.write"新文件夹的实际路为"&server.mappath("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("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
%>