• 售前

  • 售后

热门帖子
入门百科

VBS递归创建多级目录文件夹的方法

[复制链接]
阿豆学长长ov 显示全部楼层 发表于 2021-8-19 19:13:53 |阅读模式 打印 上一主题 下一主题
焦点代码
  1. CreateFolders "d:\jb51test\1\2\3\4\5"
  2. Function CreateFolders(path)
  3.         Set fso = CreateObject("scripting.filesystemobject")
  4.         CreateFolderEx fso,path
  5.         set fso = Nothing
  6. End Function
  7. Function CreateFolderEx(fso,path)
  8.         If fso.FolderExists(path) Then
  9.                 Exit Function
  10.         End If
  11.         If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
  12.                 CreateFolderEx fso,fso.GetParentFolderName(path)
  13.         End If
  14.         fso.CreateFolder(path)
  15. End Function
复制代码
颠末测试运行没问题

文中的两个函数链接CreateFolder 方法与GetParentFolderName 方法。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作