1、方法1:使用VBA的MkDir语句创建文件夹。代码如下：Sub xyf() On Error Resume Next VBA.MkDir ("c:/例子")End Sub其中 VBA.MkDir ("c:/例子")表示在C盘创建一个名为“例子”的文件夹On Error Resume Next语句表示如果已经有这个文件夹，则不创建。如下图所示：
2、方法2：使用FileSystemObject对象的CreateFolder方法。代码如下：Sub xyf() On Error Resume Next Dim oFso Set oFso = CreateObject("Scripting.FileSystemObject") oFso.CreateFolder ("C:/例子")End Sub其中 oFso.CreateFolder ("C:/例子")表示在C盘创建一个名为“例子”的文件夹On Error Resume Next语句表示如果已经有这个文件夹，则不创建。如下图所示：
