ファイル またはディレクトリを移動する(T)          <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