创建文件夹的方法，VBA代码中Windows Scripting Host的利用

大家好，我们今日继续讲解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对象模型包含哪些对象和集合？