自动创建多级目录,有则跳过 无则创建，

 Function AutoCreateFolder(strPath) ' As Boolean
  On Error Resume Next

  Dim astrPath, ulngPath, i, strTmpPath
  Dim objFSO

  If InStr(strPath, "") <=0 or InStr(strPath, ":") <= 0 Then
   AutoCreateFolder = False
   Exit Function
  End If
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(strPath) Then
   AutoCreateFolder = True
   Exit Function
  End If
  astrPath = Split(strPath, "")
  ulngPath = UBound(astrPath)
  strTmpPath = ""
  For i = 0 To ulngPath
   strTmpPath = strTmpPath & astrPath(i) & ""
   If Not objFSO.FolderExists(strTmpPath) Then
    ' 创建
    objFSO.CreateFolder(strTmpPath)
   End If
  Next
  Set objFSO = Nothing
  If Err = 0 Then
   AutoCreateFolder = True
  Else
   AutoCreateFolder = False
  End If
 End Function

时间： 2024-09-23 21:15:43

自动创建多级目录,有则跳过 无则创建，的相关文章

PHP递归创建多级目录_php技巧

我的第一个感觉就是用递归创建,具体思路如下: function Directory($dir){ if(is_dir($dir) || @mkdir($dir,0777)){ //查看目录是否已经存在或尝试创建,加一个@抑制符号是因为第一次创建失败,会报一个"父目录不存在"的警告. echo $dir."创建成功<br>"; //输出创建成功的目录 }else{ $dirArr=explode('/',$dir); //当子目录没创建成功时,试图创建父目

php mkdir 创建多级目录实例代码

先介绍一下 mkdir() 这个函数 mkdir($path,0777,true); 第一个参数:必须,代表要创建的多级目录的路径: 第二个参数:设定目录的权限,默认是 0777,意味着最大可能的访问权: 第三个参数:true表示允许创建多级目录. mkdir($dir,$mode):但是它每次只能创建一个目录,也就是说它不能一次创建多级目录,如下 mkdir('aa'); //就只能创建一个aa目录了 mkdir('aa/bb/cc');//如果有aa/bb目录就可以成功创建cc目录否则会报错

一个可以自动创建多级目录的函数

创建|函数 <%'创建多级目录,可以创建不存在的根目录'参数:要创建的目录名称,可以是多级'返回逻辑值,True成功,False失败'创建目录的根目录从当前目录开始'---------------------------------------------------FunctionCreateMultiFolder(ByValCFolder)DimobjFSO,PhCreateFolder,CreateFolderArray,CreateFolderDimi,ii,CreateFolderSu

一个可以自动创建多级目录的函数_ASP基础

<% '创建多级目录,可以创建不存在的根目录 '参数:要创建的目录名称,可以是多级 '返回逻辑值,True成功,False失败 '创建目录的根目录从当前目录开始 '--------------------------------------------------- Function CreateMultiFolder(ByVal CFolder)     Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder     Dim i,

PHP创建多级目录的两种方法_php实例

PHP针对目录的创建,有一个专门的函数mkdir():成功,返回true,失败,返回false 函数mkdir有四个参数: path:要创建的目录的名称 mode:权限.默认是0777(最大权限) recursive:设置是否可以创建多级目录(true:可,false:不可) context:文件句柄的环境.context是可修改流的行为的一套选项(很少用到) 下面给大家介绍php创建多级目录的两种方法,具体详情如下所示: 1.使用递归的思想 function mkdirs_2($path){

Lotus里面的dir函数创建多级目录提示路径找不到？

问题描述 dir函数创建一级目录是ok的,创建多级目录提示提示路径找不到pathnotfound,请各位大师指点下,谢谢?功能是判断d:czf目录下是否有发文目录,没有的话就自动创建?IfDir$("d:czf发文",16)=""ThenMkdir"d:czf发文" 解决方案 解决方案二:目录需要一级一级地创建的,也就是说你必须先建:d:czf,然后在建d:czf发文.IfDir$("d:czf",16)="&quo

PHP创建多级目录的两种方法

PHP针对目录的创建,有一个专门的函数mkdir():成功,返回true,失败,返回false 函数mkdir有四个参数: path:要创建的目录的名称 mode:权限.默认是0777(最大权限) recursive:设置是否可以创建多级目录(true:可,false:不可) context:文件句柄的环境.context是可修改流的行为的一套选项(很少用到) 下面给大家介绍php创建多级目录的两种方法,具体详情如下所示: 1.使用递归的思想 function mkdirs_2($path){

php创建多级目录的方法

 这篇文章主要介绍了php创建多级目录的方法,涉及php操作目录的技巧,非常具有实用价值,需要的朋友可以参考下     本文实例讲述了php创建多级目录的方法.分享给大家供大家参考.具体实现方法如下: ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 <?php /* 写出一个能创建多级目录的PHP函数 */ function createdirlist($path,$mode){ if (is_dir($path)){ //判

python实现一次创建多级目录的方法

 本文实例讲述了python实现一次创建多级目录的方法.分享给大家供大家参考.具体实现方法如下: ? 1 2 import os os.makedirs( "/home/jb51/data" ) 这样就可以创建一个三级目录. 希望本文所述对大家的Python程序设计有所帮助.