CopyFileメソッド

ある場所から別の場所に1つ以上のファイルをコピーします。

構文

object.CopyFile (source, destination)

引数

• Object: 必須。FileSystemObjectオブジェクトを戻すオブジェクト変数。
• Source: 必須。コピーするファイルのパスと名前。ファイル名(パスではない)にはワイルドカード文字を含めることができます。
• 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\"