gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 29 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章一个可以自动创建多级目录的函数由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. <%  
  2. '创建多级目录,可以创建不存在的根目录  
  3. '参数:要创建的目录名称,可以是多级  
  4. '返回逻辑值,True成功,False失败  
  5. '创建目录的根目录从当前目录开始  
  6. '---------------------------------------------------  
  7.  
  8. Function CreateMultiFolder(ByVal CFolder)  
  9.     Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder  
  10.     Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo  
  11.     BlInfo = False  
  12.     CreateFolder = CFolder  
  13.     On Error Resume Next  
  14.     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
  15.     If Err Then  
  16.         Err.Clear()  
  17.         Exit Function  
  18.     End If  
  19.     CreateFolder = Replace(CreateFolder, """/")  
  20.     If Left(CreateFolder, 1) = "/" Then  
  21.         CreateFolder = Right(CreateFolder, Len(CreateFolder) -1)  
  22.     End If  
  23.     If Right(CreateFolder, 1) = "/" Then  
  24.         CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)  
  25.     End If  
  26.     CreateFolderArray = Split(CreateFolder, "/")  
  27.     For i = 0 To UBound(CreateFolderArray)  
  28.         CreateFolderSub = ""  
  29.         For ii = 0 To i  
  30.             CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/"  
  31.         Next  
  32.         PhCreateFolderSub = Server.MapPath(CreateFolderSub)  
  33.         If Not objFSO.FolderExists(PhCreateFolderSub) Then  
  34.             objFSO.CreateFolder(PhCreateFolderSub)  
  35.         End If  
  36.     Next  
  37.     If Err Then  
  38.         Err.Clear()  
  39.     Else  
  40.         BlInfo = True  
  41.     End If  
  42.     CreateMultiFolder = BlInfo  
  43. End Function  
  44. %>  

使用方法:

  1. <% Response.Write CreateMultiFolder("/upload/2006/11/11/") &"<br>" %> 

'函数的返回值为True(成功)或False(失败,可能是主机不支持FSO功能) 。

最后此篇关于一个可以自动创建多级目录的函数的文章就讲到这里了,如果你想了解更多关于一个可以自动创建多级目录的函数的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com