MoveFolder 方法

將一個或多個文件夾從某位置移動到另一位置。

object.MoveFolder source, destination

參數

object

必選項。應為 FileSystemObject 的名稱。

source

必選項。要移動的文件夾的路徑。source 參數字符串僅可在路徑的最后一個組成部分中包含通配符。

destination

必選項。指定路徑，表示要將文件夾移動到該目標位置。destination 參數不能包含通配符。

說明

如果 source 包含通配符或 destination 以路徑分隔符 (\) 結束，則假定 destination 指定現有文件夾，將匹配文件移動到該文件夾中。否則，假定 destination 是要創(chuàng)建的目標文件夾。在任一種情況下，移動單個文件夾時，可能會發(fā)生以下三種情況：

• 如果 destination 不存在，則移動文件夾。這是通常會發(fā)生的情況。
• 如果 destination 是已經存在的文件，則會出現錯誤。
• 如果 destination 是目錄，則會出現錯誤。

如果 source 使用通配符，但沒有匹配文件夾時，則會出現錯誤。MoveFolder 方法在遇到出現的第一個錯誤時停止。該方法不會撤消錯誤發(fā)生前所作的任何更改。

下面例子舉例說明如何使用 MoveFolder 方法:

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

要點  只有當操作系統(tǒng)支持時，此方法才允許在兩個卷之間移動文件夾。