CopyFile 方法

將一或多個檔案從一個位置複製到另一個位置。

語法

object.CopyFile (source, destination)

引數

• Object：必要。傳回 FileSystemObject 物件的任何物件變數。
• Source：必要。要複製之檔案的路徑和名稱。檔案名稱 (但不含路徑) 可以包含萬用字元。
• Destination：必要。必須進行複製之檔案的目標資料夾路徑。Destination 不可包含萬用字元。

下列範例說明 CopyFile 方法的用法：

範例 1：

Function CopySingleFile(source, destination)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile source, destination
End Function

'Usage
CopySingleFile "C:\Temp\test.txt", "C:\Temp\dest\"

'Note – If Source file doesn’t exist, an empty file will be created at 
destination

範例 2：

Function CopyMultipleFiles(source, destination)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile source, destination
End Function

' Usage
CopyMultipleFiles "C:\Temp\*.txt", "C:\Temp\Destination\"