 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
先检查是否已经存在该目录了，假如存在，则不做任何处理，假如不存在则创建。 希望对各位迅速开发有用。 CheckFolder.asp <% \\\'*********************************************************************** \\\'页面名称: CreateFolder.asp \\\'页面功能: 生成n层目录的文件夹 \\\'使用方式: 调用CheckFolder()函数,例如: CheckFolder(path) \\\'传入参数: 即将上传的文件的相对路径,例如: path = "./upload/bbb/ccc/ddd" \\\'缺 点： 必须在参数path里面带上upload文件夹 \\\'**************************************************************************** Sub CheckFolder(path) SplitPath(path) End Sub Sub SplitPath(path) dim Road \\\'物理路径 Road = Server.Mappath("./upload") dim CurRoad \\\'当前路径 Road = Split(Road,"",-1,1) CurRoad = Road(UBound(Road)) dim folder,FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") folder = Split(path,"",-1,1) for i = 0 to UBound(folder) step 1 if folder(i) = CurRoad then j = i exit for end if Next i = j + 1 if i <= UBound(folder) then dim myroad myroad = Server.MapPath(".upload") for i = j + 1 to UBound(folder) step 1 CreateFolder myroad,folder(i) myroad = myroad &"/"& folder(i) Next end if End Sub Sub CreateFolder(mypath,folderName) Dim fso,f Set fso = Server.CreateObject("Scripting.FileSystemObject") if Not(fso.FolderExists(mypath+"/"+folderName)) then set f = fso.CreateFolder(mypath+"/"+folderName) end if End Sub Set fso = nothing %> 返回类别: 教程 上一教程: 不通过数据源完全控制MDB数据库 下一教程: 连接数据库常用的连接字符串 您可以阅读与"使用函数自动生成N层目录"相关的教程: · ASP写的自动生成SELECT表单的函数 · ASP自动生成JAVASCRIPT检验函数 · 用ASP自动生成SQL数据库的安装源程序 · ASP自动生成编号的方式 · 在ASP中自动创建多级文件夹的函数(使用FSO) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
