该文件可能是只读的 或者您要访问的位置

excelperfect

在《VBA进阶 | 文件操作8：认识Windows Scripting Host》中，我们介绍了FileSystem对象模型。本文详解其中的Folder对象与Folders集合。

Folder对象

使用Folder对象可以访问指定文件夹的所有属性，并提供了复制、移动和删除文件夹的方法，还可以在文件夹内新建一个文本文件。

Folder对象的重要性在于可以通过它访问Folders集合对象。最常用的方法是提取集合中的一个成员以访问某个对象。然而，由于Drive对象在根文件夹仅给出了Folder对象，因此不得不从Folder对象(表示根文件夹中子文件夹的集合)中提取Folders集合对象。利用Folders集合，可以向下搜索整个文件系统以选择其他Folder对象和其他Folders集合。IsRootFolder参数将告诉当前正在处理的Folder对象是否是Drive的根文件夹。

Attributes属性

返回文件夹的属性。FileAttributes常量是一组表示文件夹属性的标志。通过对Attributes返回值和要测试的常量值进行逻辑与(AND)，可以确定设置了哪一个标志。例如：

If oFolder.Attributes And ReadOnly Then '文件夹是只读的

FileAttributes常量如下：

DateCreated属性

返回文件夹的创建日期，Date类型。

DateLastAccessed属性

如果可以从操作系统获得时间信息，则属性表示最近一次访问文件夹的日期，Date类型。

DateLastModified属性

最近一次修改文件夹的日期，Date类型。

Drive属性

返回一个Drive对象，表示该文件夹所在的驱动器名称。

Files属性

返回文件夹中的文件集合，表示当前文件夹中的所有文件。

IsRootFolder属性

IsRootFolder属性判断文件夹是否为根文件夹，如果是则返回True，Boolean类型。

Name属性

返回文件夹的名称，String类型。

ParentFolder属性

返回指定文件夹的父文件夹。如果当前文件夹是它所在驱动器的根文件夹，则该属性无效。

Path属性

返回文件夹的完整路径，String类型。

Size属性

返回文件夹的大小，以字节表示。包含当前文件夹中所有文件、子文件夹及其内容的全部大小，Variant类型。

SubFolders属性

返回文件夹中的子文件夹的集合，表示当前文件夹内的所有子文件夹。

Type属性

返回文件夹的类型，例如文件夹或者回收站。该属性并未完全实现，总是返回“File Folder”，String类型。

Copy方法

将当前文件夹及其内容(包括其他文件夹)复制到另一个位置，其语法为：

oFolderObj.Copy Destination[,OverwriteFiles]

其中：

1.oFolderObj代表任何能够返回Folder对象的对象变量。

2.参数Destination必需，表示文件夹复制中的目标路径(可包含文件名)，String类型，不能在其中使用通配符。

3.参数OverwriteFiles可选，表示是应该覆盖(True)还是不覆盖(False)已存在的文件和文件夹，Boolean类型。

说明：

1.Copy方法将源文件夹中包含的文件夹、所有子文件夹和文件复制到Destination位置，也就是说，Copy方法是递归的。

2.Folder.Copy方法与FileSystemObject.CopyFolder方法不同，对于使用路径分隔符还是非路径分隔符结束Destination，在操作上都是相同的。

3.如果目标路径或者Destination结构中的任何一个文件设置为只读，则不论OverwriteFiles的值如何，Copy方法都将失败。

4.如果OverwriteFiles设置为False，且Destination结构中包含源文件夹或源文件夹中的任意一个文件，将产生错误“文件已经存在”。

5.如果在复制多个文件时出现错误，Copy方法立即停止操作，不再复制剩下的未复制的文件。该方法不具有撤销产生错误之前复制操作的返回功能。

6.如果用户有充分的权限，Destination可为网络路径或共享名。例如：oFolder.Copy\\NTSERV1\d$\RootTwo\

CreateTextFile方法

在指定位置新建一个文件，并返回所创建文件的TextStream对象。其语法为：

oFolderObj.CreateTextFile FileName[,Overwrite[,Unicode]]

其中：

1.oFolderObj代表任何能够返回Folder对象的对象变量。

2.参数FileName必需，表示任何有效的文件名(路径可选)，String类型，不允许使用通配符。

3.参数Overwrite可选，一个标志，表示是否覆盖具有相同文件名的已有文件，Boolean类型，默认设置为False。

4.参数Unicode可选，一个标志，表示是用Unicode格式还是ASCⅡ格式写文件，默认设置为False。如果Unicode设置为True，将创建一个Unicode格式的文件，否则创建一个ASCⅡ文本文件。

说明：

1.新建的文本文件只有在进行写操作时才自动打开。如果随后要读这个文件，必须先关闭这个文件，然后以读模式打开该文件。

2.必须使用Set语句把TextStream对象赋给一个局部对象变量。

3.Folder对象中的CreateTextFile方法与FileSystemObject对象中的CreateTextFile方法在操作上是一样的。

Delete方法

删除当前文件夹及其所有文件和子文件夹。其语法为：

oFolderObj.Delete [Force]

其中：

1.oFolderObj代表任何能够返回Folder对象的对象变量。

2.参数Force可选，如果设置为True，则忽略文件的只读标志并删除这个文件，Boolean类型，默认设置为False。

说明：

1.如果文件夹中某些文件已经打开，该方法失败并产生一个“Permission Denied”错误。

2.Delete方法删除指定文件夹中的所有内容，包括其他文件夹和它们的内容。

3.如果参数Force设置为False，且文件夹中的任一文件设置为只读，则该方法失败。

4.如果在删除多个文件或文件夹时出错，Delete方法立即停止操作，不再删除余下没有删除的文件或文件夹，该方法不具有撤销出错前删除操作的返回功能。

5.Folder对象的Delete方法与FileSystemObject的DeleteFolder方法不同，后者可以在路径参数中使用通配符，因而能同时删除多个文件夹，而前者只是删除Folder对象所表示的一个文件夹。

6.执行完Delete方法后，包含Folder对象的Folders集合对象会自动更新。从Folders集合中移除被删除的文件夹，且集合的计数减一。不应再访问已删除的文件夹，应该设置局部对象变量为Nothing，例如下面的代码所示：

Set ofsSubFolder=ofsSubFolders.Item(“roottwo”)

MsgBox ofsSubFolders.Count

ofsSubFolder.Delete False

MsgBox ofsSubFolders.Count

Set ofsSubFolder=Nothing

Move方法

将文件夹结构从某个位置移动到另一个位置。其语法为：

oFolderObj.Move destination

其中：

1.oFolderObj代表任何能够返回Folder对象的对象变量。

2.参数destination必需，指定文件夹移动操作中目标位置的路径，String类型，不能使用通配符，可以为绝对路径或相对路径。

说明：

1.在移动文件夹时，如果其中的某些文件已经打开，则将产生一个错误。

2.如果在移动操作的过程中出错，Move方法将立即停止操作，且不再移动剩下的文件和文件夹。

3.要保证该方法能够完成，可以在调用它之前使用FileSystemObject的FolderExists和GetAbsolutePath方法。

4.Folder.Delete方法和FileSystemObject的MoveFolder方法不同，后者可以在路径参数中使用通配符，所以能够同时移动多个文件夹，而前者只是删除Folder对象表示的一个文件夹及其内容。

5.执行完Move方法后，包含Folder对象的Folders集合对象会立即自动更新：从集合中移除刚被删除的文件夹，集合计数减一。不应该再访问同一Folders集合对象中已经删除的文件夹。

6.如果用户有足够的权限，目标路径可以是网络路径或共享名，例如：Move “\NTSERV1\d$\RootTwo\”

Folders集合

Folders集合对象是Folder对象的容器。通常我们希望从对象所在的集合访问某个对象。例如，我们可能希望从Folders集合对象访问一个Folder对象。然而，情况也可以反过来，我们可以从一个Folder对象的实例访问Folders集合对象。这是因为从Drive对象创建实例的第一个Folder对象是一个Root Folder(根文件夹)对象，从该对象可以实例化一个子文件夹集合。然后又能够实例化其他Folder对象和子文件夹对象，这样就能操作整个驱动器的文件系统。

Item属性

从Folders集合对象检索一个特定的Folder对象，可以通过提供的准确的文件夹名来访问某个文件夹，而不需要知道它的路径。但是，不能通过顺序号来访问该文件夹对象，例如下面的语句返回一个表示roottwo文件夹的Folder对象：

Set ofsSubFolder=ofsSubFolders.Item(“roottwo”)

Count属性

Folders集合包含的Folder对象的数目，Long类型。

Add方法

新建一个文件夹。其语法为：

oFoldersCollObj.Add newfoldername

其中：

1.oFolderCollObj代表任何能够返回Folders集合对象的对象变量。

2.参数newfoldername必需，指定新文件夹的名称，String类型。在newfoldername中不能使用路径标识符，只能使用新文件夹的名称。

新文件夹的位置由Folders集合对象所在的父文件夹决定。例如，如果从一个Folders集合对象调用Add方法，且这个Folders集合对象是根文件夹对象的一个子文件夹集合，则该方法将在根文件夹下创建新的文件夹(即向根Folder对象的子文件夹集合添加新的文件夹)，例如：

Dim oFileSys As New FileSystemObject

Dim oRoot As Folder,oChild As Folder

Dim oRootFolders As Folders

Set oRoot=oFileSys.Drives(“C”).RootFolder

Set oRootFolders=oRoot.SubFolders

Set oChild=oRootFolders.Add(“Downloads”)

示例

下面的代码要求用户输入文件夹名称，然后统计该文件夹中的文件数量并显示结果。

Sub CountFilesInFolder()

Dim fs, strFolder,objFolder, colFiles

strFolder =InputBox('请输入文件夹名称(带有完整路径):')

If NotIsFolderEmpty(strFolder) Then

    Set fs =CreateObject('Scripting.FileSystemObject')

    Set objFolder = fs.GetFolder(strFolder)

    Set colFiles = objFolder.Files

    MsgBox '文件夹中的文件数量为' & strFolder & '=' & colFiles.Count

End If

End Sub

'判断文件夹是否为空 

Function IsFolderEmpty(myFolder)

    Dim fs, objFolder

    Set fs =CreateObject('Scripting.FileSystemObject')

    Set objFolder =fs.GetFolder(myFolder)

    IsFolderEmpty =(objFolder.Size = 0)

End Function