excel vba 创建文件夹

前面我们通过一系列的文章介绍了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文件当前目录下会自动创建一个该名称的文件夹

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