asp FSO组件操作详解（4）

通过ASP可以建立了文件夹，则同样可以删除文件夹。

　　3，delfldr.asp

<％Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\cnbruce")
Response.Write "文件夹已删除"％>
　　发现刚建立的cnbruce文件夹确实已被删除。
　
　　那下面就采用一个通用程序来灵活应变下。

　　4，mainflr.asp

<％Sub CreateAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateFolder(file) 
response.write "已经建立了"&file
End Sub
Sub DeleteAFolder(file) 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder(file) 
response.write "已经删除了"&file
End Sub％>
<％subname=request.form("submit")
create=request.form("create")
del=request.form("del")
if subname〈>"" then
if create〈>"" then
  call CreateAFolder(""&create&"")
  end if
   if del〈>"" then
    call DeleteAFolder(""&del&"")
   end if
end if％>
〈form action="mainflr.asp" method="post">
〈input name="create">
〈input type="submit" value="建立" name="submit">
〈/form>
〈hr>
〈form action="mainflr.asp" method="post">〈input name="del">
〈input type="submit" value="删除" name="submit">
〈/form>

　　需要注意的是：删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理，特别是对你的系统文件夹。