运用于FileSystemObject工具的CreateFolder方法创建一个文件夹.
语法如下：object.CreateFolder(foldername)
参数:
a) object是必须的， FileSystemObject工具的名字。
b)foldername是必须的，字符串表达式，指明要创建文件夹的名称和路径。
过程非常的大略，但很多的朋友会一头雾水，在我最近的几篇文章中总在提到运用于FileSystemObject工具，那么这个FileSystemObject工具都有哪些模型呢？这也是很多朋友来信提的问题中较多的一种，这里给大家以一样平常的解答：一样平常的说：FileSystemObject工具模型包含了下面的工具和凑集：
1) FileSystemObject 主工具，包含用来创建、删除和得到有关信息，以及用来操作驱动器、文件夹和文件的方法和属性。
2) Drive 工具，包含用来得到信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如有多少可用空间等。驱动器不一定是硬盘，也可以是CD－ROM、U盘乃至是通过网络在逻辑上连接的硬盘。
3) Drives 凑集，供应驱动器的列表，这些驱动器以实物或在逻辑上与系统相连接。Drives凑集包括所有驱动器，与类型无关。
4) File 工具，包含用来创建、删除或移动文件的方法和属性。
5) Files 凑集，供应包含在文件夹内的所有文件的列表。
6) Folder 工具，包含用来创建、删除或移动文件夹的方法和属性。
7) Folders 凑集，供应包含在文件夹内的所有文件夹的列表。
8) TextStream 工具，用来读写文本文件。
如果要建立一个新的文件夹，就会用到运用于FileSystemObject工具的CreateFolder方法。如下面的代码所示。
Sub MyCreFolder()
Dim MyFile As Object
On Error Resume Next
Set MyFile = CreateObject(\公众Scripting.FileSystemObject\"大众)
MyFile.CreateFolder (ThisWorkbook.Path & \"大众\ABC-1\"大众)
Set MyFile = Nothing
MsgBox \公众OK!\"大众
End Sub
代码解析：MyCreFolder过程使CreateFolder方法在示例文件所在文件夹中创建一个\公众ABC-1\公众文件夹。
第4行代码利用CreateObject函数创建FileSystemObject工具并将该工具赋给变量MyFile。
第5行代码利用CreateFolder方法创建文件夹。
运行CreFolder过程将在示例文件所在文件夹中创建一个\公众ABC-1\公众文件夹。下面看代码的截图：
代码的运行：
点击OK,后看看截图，此时ABC-1文件夹存在了。
今日内容回向：
1 如何利用WSH创建一个新的文件夹？
2 如果有了一个ABC-1的文件夹，再次运行后会有什么结果呢？
3 一样平常的说：FileSystemObject工具模型包含哪些工具和凑集？
