37.ファイルをコピーする

ファイルをコピーするにはFileCopyステートメントを使用します。

構文

FileCopy source, destination

source コピー元のファイル名（フルパスで指定）
destination コピー先のファイル名（フルパスで指定）

引数source, destinationに同じファイル名を指定するとエラーとなります。

以下のコードでは、ボタン(Command1)を押した時に、Text1で指定したファイルをText2にコピーします。その際、コピー元のファイルが存在しなかったり、コピー元とコピー先で同じファイル名を指定してエラーとなった場合にメッセージを表示するようにしています。

Private Sub Command1_Click()
On Error GoTo Err_Handler

'ファイルをコピーし、エラーが無ければ終了する
FileCopy Text1.Text, Text2.Text
Exit Sub

Err_Handler:
'エラーの番号に応じてメッセージを表示
Select Case Err.Number
    Case 53
    MsgBox "指定したファイルは存在しません"
    Case 70
    MsgBox "同じファイル名を指定することはできません"
End Select

End Sub

サンプルプログラムのダウンロード(4.32KB)

戻る