<% 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

     [转自：711网络工作室 http://www.tc711.com]

    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
    %>