VBA磁盘目录管理语句介绍

No.1

用VBA进行磁盘目录管理，也是一个不错的方法。

本节介绍几个语句，对磁盘目录进行管理操作。

如下图所示，无非就是对磁盘进行新建，修改和删除操作。

懂得文件操作系统命令，一般对目的管理的操作也是一个很简单方法。

新建目录如下图所示：

删除目录

No.2

新建目录代码

Private Sub NewDir()Dim mPath As StringmPath = InputBox("输入目录名：", "新建目录", "")If VBA.Len(mPath) = 0 Then Exit SubmPath = ThisWorkbook.Path & "\" & mPathMkDir mPathEnd Sub

删除目录代码

Private Sub DelDir()Dim DelTrue As IntegerWith Application.FileDialog(msoFileDialogFolderPicker)If .Show = -1 ThenDelTrue = MsgBox("确定要删除吗？", vbYesNo, "删除目录")If DelTrue = 6 ThenRmDir .SelectedItems(1)End IfEnd IfEnd WithEnd Sub

No.3

目录管理是文件操作最基本的功能，只有对目录有一个清晰的认识，然后进行文件整理和操作就相对简单了。

欢迎关注、收藏

---END---