１3．既存のファイルをコピーする



＜　使用用途　＞
既存のファイルをコピーする

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のCopyFileを使用します。
CopyFile＝＞既存のファイルをコピーする
＜引数＞
　　　　lpExistingFileName： 　 既存のファイル名
　　　　lpNewFileName：　　　　新しいファイル名
　　　　bFailIfExists：　　　　1->同一ファイル名があるときエラーにする
　　　　　　　　　　　　　　　　0->同一ファイルがあるとき上書きする
　　＠戻り値＠　　
　　　　正常終了は0以外　　　　

<　ＳＡＭＰＬＥ　＞
’ここではCalc.ExeをPAPY.exeという名前でコピーする処理を行っています
’標準モジュール
PublicDeclare Function CopyFile Lib "KERNEL32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

’フォーム内の処理
Private Sub Command1_Click()
　
　Dim oldFile As String
　Dim newFile As String
　Dim Ret As Long

　　　　oldFile = "C:\Windows\calc.exe"
　　　　newFile = "C:\Windows\PAPY.exe"

　　　　Ret = CopyFile(oldFile, newFile, 1)

End Sub