前面我们通过一系列的文章介绍了excel与文本文件的读写

也有网友希望了解一下excel对文件夹的处理内容

这里我们用FSO对象创建文件夹

Sub 新建文件夹()     Dim fso As New FileSystemObject     Dim sFolder As String     sFolder = Application.InputBox("请输入新建文件夹的名称：", "输入文件夹名称", Type:=2)     If sFolder = "False" Or sFolder = "" Then Exit Sub     sFolder = ThisWorkbook.Path & "\" & sFolder     If fso.FolderExists(sFolder) Then         MsgBox "文件夹“" & sFolder & "”已经存在！"     Else         fso.CreateFolder (sFolder) '创建文件夹         MsgBox "文件夹“" & sFolder & "”创建完成！"     End If     Set fso = Nothing End Sub

运行代码，会弹出对话框，我们填入文件夹名后。在excel文件当前目录下会自动创建一个该名称的文件夹

如果文件夹存在，即提示已经存在，创建失败