Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long
Public Sub PathCrt() 'creat a path with path naming in the string
Dim pathnew As String
pathnew = Application.InputBox("the new create path")
MakeSureDirectoryPathExists pathnew
End Sub
这个脚本可以根据你输入的路径和文件夹名来建立文件夹，你自己改改加个循环嵌套，在excel里列出来你要键的文件夹，然后调用上面的命令一个个生成文件夹就好了
Public Sub PathCrt() 'creat a path with path naming in the string
Dim pathnew As String
pathnew = Application.InputBox("the new create path")
MakeSureDirectoryPathExists pathnew
End Sub
这个脚本可以根据你输入的路径和文件夹名来建立文件夹，你自己改改加个循环嵌套，在excel里列出来你要键的文件夹，然后调用上面的命令一个个生成文件夹就好了
温馨提示：内容为网友见解，仅供参考
第1个回答 2018-01-11
用md命令，建个bat文件
第2个回答 2020-08-23
首先把文字转我横向排版，复制下来，然后新建一个文本文档，输入md和一个空格，再把文字粘贴进去，文件另存为，后缀名修改成bat，编码改成ansi，保存在双击刚才的文件，即可完成。
第3个回答 2020-07-12
Excel如何快速新建多个文件夹？这个视频告诉你！办公软件实用技巧。
相似回答
