使用函数自动生成n层目录

2024-07-30 10:05:16

先检查是否已经存在该目录了，如果存在，则不做任何处理，如果不存在则创建。

希望对各位快速开发有用。

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

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)

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

使用函数自动生成n层目录

先检查是否已经存在该目录了,如果存在,则不做任何处理,如果不存在则创建. 希望对各位快速开发有用. CheckFolder.asp <% '*********************************************************************************************************** '作者: 赵敏 flash90@sohu.com '页面名称: CreateFolder.asp '页面功能: 生成n层目录的文件夹 '使用方
Thinkphp5.0自动生成模块及目录的方法详解

本文实例讲述了Thinkphp5.0自动生成模块及目录的方法.分享给大家供大家参考,具体如下: Thinkphp5.0发布已有些时日了,据说性能方面有很大的提升,按照官方的话,ThinkPHP5.0版本是一个颠覆和重构版本,采用全新的架构思想,引入了很多的PHP新特性,优化了核心,减少了依赖,实现了真正的惰性加载,并针对API开发做了大量的优化.是时候得download一份,研究一下.今天主要讲讲其自动创建模块及目录. Thinkphp5.0自动生成模块较ThinkPHP3.2,确实有很大的变化
详解自动生成博客目录案例

前面的话有朋友在博客下面留言,询问博客目录是如何生成的.接下来就详细介绍实现过程操作说明关于博客目录自动生成,已经封装成catalog.js文件,只要引用该文件即可 //默认地,为页面上所有的h3标签生成目录 <script src="http://files.cnblogs.com/files/xiaohuochai/catalog.js"></script> //或者,为页面上所有class="test"的标签生成目
实现core文件自动生成配置文件的方法

本文讲述了实现core文件自动生成的配置方法,具体执行步骤如下: 1.编辑环境配置文件,让shell启动时自动设置ulimit vi /etc/profile ulimit -c unlimited > /dev/null 2>&1 2.更改core文件生成路径 vi /etc/sysctl.conf kernel.core_uses_pid = 1 kernel.core_pattern=/tmp/core-%e-%p 3.sysctl配置生效 sysctl -p /etc/sysc
VsCode中ctrl+s后会在当前目录下自动生成dist目录的方法

在VsCode中ctrl+s后会在当前目录下自动生成dist目录解决办法:关闭compile-hero插件在设置中搜索compile-hero插件关闭所有自动生成dist目录的选项(如下图所示) PS:下面看下vue项目Ctrl+s vscode代码自动格式化前言多人开发vue项目,代码风格形式不一 vscode保存代码,自动按照eslint规范格式化代码设置(vscode最新版配置) vscode插件首先vscode需要装一些vscode插件 ESLint.Vetur.Pretti
用js实现的一个根据内容自动生成表格的函数

晚上突然看到以前做asp时写的一个根据数据库数据自动生成表格的程序. 要求是: 1,对于空内容,应该写为"<td> </td>",否则在ie会显示的很变态(ie当作该单元格不存在). 2,当输出数据条数不等于表格的"长X宽"时,用"<td> </td>"自动填补最后一行空余的地方. 其实也很简单,当时做asp时用了一个较复杂的算法(下面代码中MakeTable2),今天又想到一个更容易理解的算法(M
让网站自动生成章节目录索引的多个js代码

第一种:只支持一级目录 <h3>,作为段落不支持分类一个好的博文除了博文的质量要好以外,好的组织结构也能让读者阅读的更加舒服与方便,我看园子里面有一些园友的博文都是分章节的,并且在博文的前面都带有章节的目录索引,点击索引之后会跳转到相应的章节阅读,并且还可以回到目录顶端,其中 Fish Li 的博文就是这种组织,当然这种结构如果是在写博文的时候人工设置那是非常麻烦的,无疑是增加了写作人的工作量.如果能自动生成章节索引岂不是节省了一大堆工作量.本来想通过FireBug看看Fish Li源码是怎
PHP自动生成缩略图函数的源码示例

一个简单但功能比较完善的自动生成缩略图的函数,可以按需要对图片进行缩放.裁切.锁定宽或高.使用空白填充以下为源码,比较简单,相信很容易看明白,记得打开 GD 库的支持哦: <?php /** * 生成缩略图 * @param string 源图绝对完整地址{带文件名及后缀名} * @param string 目标图绝对完整地址{带文件名及后缀名} * @param int 缩略图宽{值设为0时目标高度不能为0,目标宽度为源图宽*(目标高度/源图高)} * @param int 缩略图高{值设为
文章或博客自动生成章节目录索引(支持三级)的实现代码

自动生成章节目录索引(只支持一级) 一个好的博文除了博文的质量要好以外,好的组织结构也能让读者阅读的更加舒服与方便,我看园子里面有一些园友的博文都是分章节的,并且在博文的前面都带有章节的目录索引,点击索引之后会跳转到相应的章节阅读,并且还可以回到目录顶端,其中 Fish Li 的博文就是这种组织,当然这种结构如果是在写博文的时候人工设置那是非常麻烦的,无疑是增加了写作人的工作量.如果能自动生成章节索引岂不是节省了一大堆工作量.本来想通过FireBug看看Fish Li源码是怎么实现的,但是好像j
pycharm自动生成文件注释和函数注释

1. 文件注释 File -> settings -> Editor -> File and Code Templates -> Python Script pycharm提供了一个在新建文件自动生成文件头注释的功能,可以实现自动生成运行环境,作者.日期等必要信息,使用比较方便,配置十分简单. 按照1-5的路径选项即可.在5中填写想要的注释. 我的模板: # -*- encoding: utf-8 -*- ''' @File : ${NAME}.py @Contact : emac

使用函数自动生成n层目录

相关推荐

随机推荐