使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。
Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。
Name OldName As NewName ' 更改文件名。
OldName = "
C
:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名,并移动文件。
其它:
使用shell语句来调用dos命令rename。
关键代码如下:
Name "C:\AA.TXT" As "C:\BB.TXT"
Name "C:\AA.TXT" As "C:\BB.RAR"