excel vba 创建文件夹

前面我们通过一系列的文章介绍了excel与文本文件的读写也有网友希望了解一下excel对文件夹的处理内容这里我们用FSO对象创建文件夹Sub新建文件夹()
DimfsoAsNewFileSystemObject
DimsFolderAsString
sFolder=Application.InputBox("请输入新建文件夹的名称：","输入文件夹名称",Type:=2)
IfsFolder="False"OrsFolder=""ThenExitSub
sFolder=ThisWorkbook.Path&"\"&sFolder
Iffso.FolderExists(sFolder)Then
MsgBox"文件夹“"&sFolder&"”已经存在！"
Else
fso.CreateFolder(sFolder) '创建文件夹
MsgBox"文件夹“"&sFolder&"”创建完成！"
EndIf
Setfso=Nothing
EndSub
运行代码，会弹出对话框，我们填入文件夹名后。在excel文件当前目录下会自动创建一个该名称的文件夹

1510823240635579.png

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

1510823303400582.png