;为指定文件改名脚本

$g_szVersion = "FileRename"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

;定义需更名的文件变量
$FileName="wjbf"
$Ext=".bkf"
$OldFile=$FileName & $Ext

;判断文件是否存在
if FileExists($OldFile) Then
 $t =  FileGetTime($OldFile, 1) ;获取系统日期与时间
Else
 Msgbox(4096,"提示",$OldFile & "文件不存在，请查正") ;出错提示
 Exit
EndIf

If Not @error Then
 $NewFile = $t[0] & "-"  & $t[1] & "-" & $t[2] & $Ext ;定义新文件名
 filemove($OldFile,$NewFile,1) ;文件更名
Else
 Msgbox(4096,"提示","程序操作不成功，请联系管理员") ;出错提示
 Exit
EndIf