描述

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

语法

object.MoveFolder source, destination  

MoveFolder 方法的语法有以下部分：  

部分	描述
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

重点    仅当操作系统支持时，此方法允许在卷之间移动文件夹。