|
先检查是否已经存在该目录了，如果存在，则不做任何处理，如果不存在则创建。 希望对各位快速开发有用。 CheckFolder.asp <% '*********************************************************************************************************** '作 者: 赵敏 flash90@sohu.com '页面名称: 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 %> |