ファイル またはディレクトリを移動する(Ⅰ)          <TOP>

MoveFile 既存のファイルを移動します。

　

第一引数：移動(名前変更)させたいファイルのパスを指定し、
第二引数：ファイルの移動先をパスで指定します。
ファイルの移動先が同じディレクトリの場合、
ファイルは移動せず、ファイルの名前が変更されます。

　

'================================================================
'= ファイルを移動する
'=    (MoveFile.bas)
'================================================================
#include "Windows.bi"

' 既存のファイルを移動
Declare Function Api_MoveFile& Lib "Kernel32" Alias "MoveFileA" (ByVal lpExistingFileName$, ByVal lpNewFileName$)

Var OldName As String
Var NewName As String
Var Ret As Long

OldName = "C:\Temp\Hoge.txt"
NewName = "C:\Temp2\Hoge.txt"

Ret = Api_MoveFile(OldName, NewName)

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

Stop
End