ファイルのリネーム

リネームするには"MoveFile"を使うしかないと思っていたのだが、別の方法があった。
下記の例は、"test.txt → test001.txt"に変更する例。

option explicit
dim sfo, gfile

const filepath = "C:\test\test.txt" 'ファイルのパス

set sfo = createobject("scripting.filesystemobject")
set gfile = sfo.getfile(filepath)

gfile.name = "test001.txt" '名前をtest.txtからtest001.txtに変更

set sfo = nothing
set gfile = nothing