８５．既存のファイルを移動する

＜　使用用途　＞
既存のファイルを移動する

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

　＜　説明　＞
ＡＰＩ関数のMoveFileを使用します
MoveFile　＝＞既存のﾌｧｲﾙを移動
　　＜引数＞
　　　　　lpExistingFileName： 元のファイル名･ディレクトリ名
　　　　　lpNewFileName： 新しいファイル名･ディレクトリ名
　　＠戻り値＠
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
’ここでは「C:\Windows\Calc.exe」を「C:\Calc.exe」に移動する処理です
'標準モジュール
Public Declare Function MoveFile Lib "KERNEL32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()

Dim Ret As Long
Dim OldName As String
Dim NewName As String

　 OldName = "C:\Windows\Calc.exe"
　 NewName = "C:\Calc.exe"

　Ret = MoveFile(OldName, NewName)

　 If Ret <> 0 Then
　　MsgBox "移動しました"
　 Else
　　 MsgBox "移動できませんでした"
　End If

End Sub