移動 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