如何用VBA创建多级目录？

作者：绿色风分类：时间：2022-08-17 浏览：146

楼主 omnw	Q：如何用VBA创建多级目录？ A：使用如何代码可以创建多级目录。 Sub 创建多级目录() Dim i As Integer Dim str As String Dim str_path As String If Right([C3], 1) = "\" Then '获取完整路径名称 str = Left([C3], Len([C3]) - 1) Else str = [C3] End If On Error Resume Next str_path = Split([C3], "\")(0) & "\" & Split([C3], "\")(1) '创建一级目录 MkDir (str_path) For i = 2 To UBound(Split([C3], "\")) + 1 '依次创建子目录 str_path = str_path & "\" & Split([C3], "\")(i) MkDir (str_path) Next End Sub 创建多级目录.rar
2楼 lnt1231	学习了,谢谢分享
3楼初学者2012	学习了,谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表