 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
这是个删除非空目录的例子 \\\'test.asp \\\'要执行删除你需要对该目录具有修改权限 <% dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles set fso=server.CreateObject("Scripting.FileSystemObject") sub delfolder(sPath) If (fso.FolderExists(server.MapPath (sPath))) then set tmpfolder=fso.GetFolder(server.MapPath (sPath)) set tmpfiles=tmpfolder.files for each tmpfile in tmpfiles fso.DeleteFile (tmpfile) next set tmpsubfolder=tmpfolder.SubFolders for each tmpfolder in tmpsubfolder \\\'response.Write spath&"/"&tmpfolder.name delfolder(spath&"/"&tmpfolder.name ) next fso.DeleteFolder (server.MapPath (sPath)) end if end sub %> <% \\\'调用例子 \\\'test.asp放到wwwroot下 \\\'wwwroot1存在，且其他下有若干子目录和文件 delfolder("1") %> 返回类别: 教程 上一教程: IIS5 + ADO 2.5新先睹为快技术(二) 下一教程: ASP取得图片大小代码 您可以阅读与"ASP删除非空目录的例子"相关的教程: · ASP编程中15个异常有用的例子（一） · ASP编程中15个异常有用的例子 （二） · ASP直接调用EXCEL数据的例子 · ASP实现播放FLASH的例子 · ASP直接调用EXCEL数据的例子(不用ODBC) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
