大家好，我们今日继续讲解VBA代码解决方案的第70讲内容：利用Windows Scripting Host(WSH)，创建一个文件夹。在实际的代码编写工程中，经常会用到创建一个新的文件夹，如果在一般的操作中，只需要点击右键，选择新建一个文件夹即可，但在VBA代码中，我们要借助于WSH来完成。借助于WSH, 如果需要创建一个文件夹，可以使用CreateFolder方法.
应用于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对象模型包含哪些对象和集合？
电脑 电脑