移动 FileFolder

使用方法：

.MoveFile(Source, Dest)
.MoveFolder(Source, Dest)

以下代码说明了使用 MoveFile 方法将文件移动到新位置。使用 MoveFolder 方法可以为文件夹实现相同的功能。

码：

Dim objFso, strSourcePath, strDestPath
strSourcePath = "C:\Users\GS\Desktop\Source.txt"
strDestPath = "C:\Users\GS\Desktop\Folder\Dest.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSourcePath) then
    objFso.MoveFile strSourcePath, strDestPath
End If
Set objFso = Nothing

注意：我们没有任何文件系统对象的方法，允许我们重命名文件。但是，这可以通过 MoveFile 方法实现，方法是将文件移动到具有不同名称的相同位置，如下所示：

Dim objFso, strSourcePath, strDestPath
strSourcePath = "C:\Users\GS\Desktop\OldName.txt"
strDestPath = "C:\Users\GS\Desktop\NewName.txt"       'Location is same but the name is different
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSourcePath) then
    objFso.MoveFile strSourcePath, strDestPath
End If
Set objFso = Nothing