用VB新建一个文件夹

mkdir app.path & "\files"

mkdir "files"

mkdir app.path & "\files"
shell cmd "md files"

当前目录下新建
Mkdir "files"
其他目录下新建(如：E盘中)
Mkdir "E:\files"
写入相应路径即可

工程->引用里MicroSoft Scripting Runtime前打勾

然后代码加入
Dim FSO As FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder ("D:\新建文件夹1")