MoveFolder 方法

object.MoveFile source, destination

将一个或多个文件夹从某位置移动到另一位置。

参数	描述
object	必选项。应为 FileSystemObject 的名称。
source	必选项。要移动的文件夹的路径。source 参数字符串仅可在路径的最后一个组成部分中包含通配符。
destination	必选项。指定路径，表示要将文件夹移动到该目标位置。destination 参数不能包含通配符。

如果 source 包含通配符或 destination 以路径分隔符 () 结束，则假定 destination 指定现有文件夹，将匹配文件移动到该文件夹中。否则，假定 destination 是要创建的目标文件夹。在任一种情况下，移动单个文件夹时，可能会发生以下三种情况：

如果 destination 不存在，则移动文件夹。这是通常会发生的情况。 如果 destination 是已经存在的文件，则会出现错误。 如果 destination 是目录，则会出现错误。 如果 source 使用通配符，但没有匹配文件夹时，则会出现错误。MoveFolder 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。

下面例子举例说明如何使用 MoveFolder 方法:

Sub MoveAFolder(Drivespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.MoveFolder Drivespec, "c:\windows\desktop\"
End Sub

要点 只有当操作系统支持时，此方法才允许在两个卷之间移动文件夹。

应用于

• FileSystemObject 对象