随笔 - 49  文章 - 0 评论 - 19 
<2007年7月>
24252627282930
1234567
891011121314
15161718192021
22232425262728
2930311234

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 51702
  • 排名 - 104

最新评论

阅读排行榜

评论排行榜

;为指定文件改名脚本

$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

posted on 2007-07-04 08:51 疾风随影 阅读(773) 评论(0)  编辑 收藏 引用 所属分类: Script & Batch column
只有注册用户登录后才能发表评论。