CopyFile について

ファイルのコピーって、必要ですよね！というわけで、コピーしちゃいますｗ

■CopyFileメソッド

そのままですけど、ファイルをコピーするためのメソッドです

ワイルドカード文字「*」を使用して複数ファイルのコピーも可能です

フォルダのコピーは別メソッドなので、それは別で紹介します！

・構文

構文は以下の通りです

object.CopyFile source, destination, [ overwrite ]

objectはFileSystemObjectのオブジェクトです

・パラメータ

メソッドのパラメータは以下の通りです

source … コピーするファイルのパス
destination … コピー先のフォルダやファイルのパス
[overwrite] … 既存のファイルを上書きするかどうか

sourceには、コピーするファイルのパスを指定、ワイルドカード文字列をしようすることで複数ファイルを指定します（必須項目）

destinationには、コピー先フォルダやファイルを指定できますが、ワイルドカード文字列は使用不可です（必須項目）

[overwrite]には、コピー先フォルダにコピー元のファイルと同名ファイルがある場合に、上書きするかを設定します

True : 上書きする【デフォルト】、False : 上書きしない

・戻り値

メソッドの戻り値は以下の通りです

なし

コピーが成功したかどうかを戻り値で受け取りたいところですけど、ないんですってー！

■例

・簡単なサンプル

①CopyFileのサンプル

Function CopyFile_Sample(source As String, destination As String, Optional overwrite As Boolean = True) As Boolean
On Error Resume Next
    Dim obj     As FileSystemObject
    Dim ret     As Boolean
	
    ' オブジェクトを作成
    Set obj = New FileSystemObject
	
    Err.Clear
	
    ' CopyFileの呼び出し
    Call obj.CopyFile(source, destination, overwrite)
	
Debug.Print Err.Number, Err.Description

    ' オブジェクトを破棄
    Set obj = Nothing
	
    ' 結果を返す
    CopyFile_Sample = ret
	
End Function

Function CopyFile_Sample(source As String, destination As String, Optional overwrite As Boolean = True) As Boolean

On Error Resume Next

Dim obj As FileSystemObject

Dim ret As Boolean

' オブジェクトを作成

Set obj = New FileSystemObject

Err.Clear

' CopyFileの呼び出し

Call obj.CopyFile(source, destination, overwrite)

Debug.Print Err.Number, Err.Description

' オブジェクトを破棄

Set obj = Nothing

' 結果を返す

CopyFile_Sample = ret

End Function

②呼び出し元関数のサンプル

Sub CallCopyFile_Sample()

    Dim source          As String
    Dim destination     As String
    
    ' コピーするファイルパス
    source = "E:\VBA\Sample001\Sample.txt"
    
    ' コピー先フォルダをパスの区切り文字終わりで指定
    destination = "E:\VBA\Sample002\"
    ' 作成した関数を呼び出す・・・(1)
    Call CopyFile_Sample(source, destination)
    
    ' コピー先を既存ファイルに指定
    destination = "E:\VBA\Sample002\Sample.txt"
    ' 作成した関数を呼び出す・・・(2)
    Call CopyFile_Sample(source, destination)
    
    ' コピー先を存在しないファイルに指定
    destination = "E:\VBA\Sample002\SampleCopy.txt"
    ' 作成した関数を呼び出す・・・(3)
    Call CopyFile_Sample(source, destination)
    
    ' コピーするファイルパス
    source = "E:\VBA\Sample001\Sample.txt"
    ' コピー先を既存ファイル(読み取り専用)に指定
    destination = "E:\VBA\Sample002\ReadOnly.txt"
    ' 作成した関数を呼び出す・・・(4)
    Call CopyFile_Sample(source, destination)
    
    ' コピー先フォルダをパスの区切り文字終わらず既存フォルダを指定
    destination = "E:\VBA\Sample002"
    ' 作成した関数を呼び出す・・・(5)
    Call CopyFile_Sample(source, destination)
    
    ' コピー先フォルダを存在しないパスの区切り文字終わらず指定
    destination = "E:\VBA\Sample003"
    ' 作成した関数を呼び出す・・・(6)
    Call CopyFile_Sample(source, destination)
    
    
    ' コピーするファイルパス(ワイルドカード文字列を使用)
    source = "E:\VBA\Sample001\*.txt"
    ' コピー先フォルダをパスの区切り文字終わりで指定
    destination = "E:\VBA\Sample002\"
    ' 作成した関数を呼び出す・・・(7)
    Call CopyFile_Sample(source, destination)
    
    ' コピーするファイルパス(ワイルドカード文字列を使用)
    source = "E:\VBA\Sample001\Sample.*"
    ' コピー先フォルダをパスの区切り文字終わりで指定
    destination = "E:\VBA\Sample002\"
    ' 作成した関数を呼び出す・・・(8)
    Call CopyFile_Sample(source, destination)
    
    ' コピーするファイルパス(ワイルドカード文字列をフォルダに使用)
    source = "E:\VBA\Sample*\Sample.csv"
    ' コピー先フォルダをパスの区切り文字終わりで指定
    destination = "E:\VBA\Sample002\"
    ' 作成した関数を呼び出す・・・(9)
    Call CopyFile_Sample(source, destination)
    
    ' コピーするファイルパス
    source = "E:\VBA\Sample001\Sample.txt"
    ' コピー先フォルダ(ワイルドカード文字列を使用)
    destination = "E:\VBA\Sample002\*.txt"
    ' 作成した関数を呼び出す・・・(10)
    Call CopyFile_Sample(source, destination)
    
    ' コピーするファイルパス(ワイルドカード文字列を使用して存在しないファイル)
    source = "E:\VBA\Sample001\ZZZ*.txt"
    ' コピー先フォルダをパスの区切り文字終わりで指定
    destination = "E:\VBA\Sample002\"
    ' 作成した関数を呼び出す・・・(11)
    Call CopyFile_Sample(source, destination)
    
    
    ' コピーするファイルパス
    source = "E:\VBA\Sample001\Sample.txt"
    ' コピー先を既存ファイルに指定
    destination = "E:\VBA\Sample002\Sample.txt"
    ' 作成した関数を上書きしないで呼び出す・・・(12)
    Call CopyFile_Sample(source, destination, False)
    
    ' コピーするファイルパス
    source = "E:\VBA\Sample001\Sample.txt"
    ' コピー先を既存ファイル(読み取り専用)に指定
    destination = "E:\VBA\Sample002\ReadOnly.txt"
    ' 作成した関数を上書きしないで呼び出す・・・(13)
    Call CopyFile_Sample(source, destination, False)
    
    ' コピーするファイルパス(ワイルドカード文字列を使用)
    source = "E:\VBA\Sample001\*.csv"
    ' コピー先フォルダをパスの区切り文字終わりで指定
    destination = "E:\VBA\Sample002\"
    ' 作成した関数を上書きしないで呼び出す・・・(14)
    Call CopyFile_Sample(source, destination, False)
    
End Sub

Sub CallCopyFile_Sample()

Dim source As String

Dim destination As String

' コピーするファイルパス

source = "E:\VBA\Sample001\Sample.txt"

' コピー先フォルダをパスの区切り文字終わりで指定

destination = "E:\VBA\Sample002\"

' 作成した関数を呼び出す・・・(1)