大家好，我们今天继续解释VBA代码解决方案的第70个内容：使用Windows Scripting Host(WSH)，创建文件夹。在实际的代码编写项目中，经常使用创建一个新的文件夹，如果在一般操作中，只需点击右键，选择一个新的文件夹，但在VBA在代码的帮助下WSH来完成。借助于WSH, 若需要创建文件夹，可以使用CreateFolder方法.

应用于FileSystemObject对象的CreateFolder创建文件夹的方法.

语法如下：object.CreateFolder(foldername)

参数:

a) object是必须的， FileSystemObject对象名称。

b)foldername是必要的，字符串表达式，指出要创建文件夹的名称和路径。

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\\"文件夹。\\"

End Sub

代码解析：MyCreFolder过程使CreateFolder创建示例文件所在文件夹中的方法\\"ABC-1\\"文件夹。

今日内容回: