項目

ファイルコピー(FileCopy)

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++
'ファイルコピー(FileCopy)
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()

On Error GoTo err_handle

    Dim source      As String
    Dim destination As String

    source = "c:\temp\hoge.txt"         '元
    destination = "d:\temp\hoge.txt"    '先

    On Error Resume Next
    FileCopy source, destination        'コピー

    Exit Sub

err_handle:

    Debug.Print Err.Description

End Sub