MoveFolder 方法

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

object.MoveFolder source, destination

參數(shù)

object

必選項(xiàng)。應(yīng)為 FileSystemObject 的名稱。

source

必選項(xiàng)。要移動的文件夾的路徑。source 參數(shù)字符串僅可在路徑的最后一個(gè)組成部分中包含通配符。

destination

必選項(xiàng)。指定路徑，表示要將文件夾移動到該目標(biāo)位置。destination 參數(shù)不能包含通配符。

說明

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

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

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

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

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

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