前幾篇就講到資料夾的複製及移動
用的是FileSystemObject的CopyFolder方法及MoveFolder方法
今天，我們來試試另一種方法來達成複製及移動
資料夾的複製及移動的方法
除了使用FileSystemObject的CopyFolder方法及MoveFolder方法之外
還可以透過Folder物件的Copy方法及Move方法來進行
來先看個Copy方法的範例：

Option Explicit

Private FSO
Private ThisFolder
Private DesktopPath

Set FSO = CreateObject("Scripting.FileSystemObject")
Set ThisFolder = FSO.GetFolder(".")
DesktopPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
ThisFolder.Copy DesktopPath & "\", True

Set FSO = Nothing
Set ThisFolder = Nothing

內容是將目前的資料夾複製到桌面上

來看個Move方法的範例：

Option Explicit

Private FSO
Private ThisFolder
Private DesktopPath

Set FSO = CreateObject("Scripting.FileSystemObject")
Set ThisFolder = FSO.GetFolder("Files")
WScript.Echo ThisFolder
DesktopPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
WScript.Echo DesktopPath
ThisFolder.Move DesktopPath & "\"
Set FSO = Nothing
Set ThisFolder = Nothing

將位於同資料夾底下的「files」資料夾移動到桌面..
記得，做移動時，對於資料夾有些限制跟之前所講的一樣
要避免，以免產生錯誤..

提供給有需要的人..