MoveFile 方法

将一个或多个文件从某位置移动到另一位置。 [code][i]object.[/i][b]MoveFile [/b][i]source, destination [/i][/code] [h3]参数[/h3]object 必选项。应为 FileSystemObject 的名称。 source 必选项。要移动的文件的路径。[b]source[/b] 参数字符串仅可在路径的最后一个组成部分中用通配符。 destination 必选项。指定路径，表示要将文件移动到该目标位置。[b]destination[/b] 参数不能包含通配符。 [h3]说明[/h3]如果 [b]source[/b] 包含通配符或 [b]destination[/b] 以路径分隔符 (\) 结束，则假定 [b]destination[/b] 指定现有文件夹，将匹配文件移动到该文件夹中。否则，假定 [b]destination[/b] 是要创建的目标文件。在任一种情况下，移动单个文件时，可能出现以下三种情况： [list][*]如果 [b]destination[/b] 不存在，则进行文件移动。这是通常会发生的情况。 [/*][*]如果 [b]destination[/b] 是已经存在的文件，则会出现错误。 [/*][*]如果 [b]destination[/b] 是目录，则会出现错误。 [/*][/list]如果在 [b]source[/b] 使用通配符，但没有匹配文件时，也会出现错误。[b]MoveFile[/b] 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。 下面例子举例说明如何使用 [b]MoveFile[/b] 方法:

[code]Sub MoveAFile(Drivespec)  Dim fso  Set fso = CreateObject("Scripting.FileSystemObject")  [b]fso.MoveFile[/b] Drivespec, "c:\windows\desktop\"End Sub[/code]

[b]注意  GetParentFolderName[/b]方法只有在已知的路径上起作用，它不能建立路径，也不能确定指定路径是否存在。