使用函数自动生成n层目录
程序员文章站
2022-05-03 13:23:02
先检查是否已经存在该目录了,如果存在,则不做任何处理,如果不存在则创建。
希望对各位快速开发有用。
checkfolder.asp
<%
'*********...
先检查是否已经存在该目录了,如果存在,则不做任何处理,如果不存在则创建。
希望对各位快速开发有用。
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
%>
希望对各位快速开发有用。
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
%>
上一篇: vithink小文件自动实现文件浏览下载
推荐阅读
-
sql server使用公用表表达式CTE通过递归方式编写通用函数自动生成连续数字和日期
-
使用函数自动生成n层目录
-
SpringBoot使用logback自定义配置时遇到的坑 --- 在 /tmp目录下自动生成spring.log文件
-
mybaits中dao层的使用方式1:用自动生成工具生成
-
sql server使用公用表表达式CTE通过递归方式编写通用函数自动生成连续数字和日期
-
ThinkPHP框架报错:项目目录不可写,目录无法自动生成! 请使用项目生成器或者手动生成项目目录~
-
在word中如何自动生成目录 PHP目录函数实现创建、读取目录教程实例
-
使用函数自动生成n层目录
-
ThinkPHP框架报错:项目目录不可写,目录无法自动生成! 请使用项目生成器或者手动生成项目目录~
-
SpringBoot使用logback自定义配置时遇到的坑 --- 在 /tmp目录下自动生成spring.log文件