vbs定时重命名文件脚本

最新推荐文章于 2023-11-24 15:19:30 发布

qq_29427355

最新推荐文章于 2023-11-24 15:19:30 发布

阅读量704

点赞数

分类专栏：自动化测试文章标签： vbs

本文链接：https://blog.csdn.net/qq_29427355/article/details/84840721

版权

自动化测试专栏收录该内容

10 篇文章 0 订阅

订阅专栏

While true 
	Do
		Wscript.Sleep 1000*15
	loop While (Hour(Now)<>00 or Minute(Now)<>10)
	call rename()
Wend
Function rename()
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	strFolder =  objFSO.GetFile(Wscript.ScriptFullName).ParentFolder.Path
	strFolder = strFolder&"\"
	Set objFolder = objFSO.GetFolder(strFolder)
	Set colFiles = objFolder.Files
	For Each strFile in colFiles
		If Lcase(objFSO.GetFileName(strFile)) = "runtime.log" Then
		   strNewName = Replace(strFile.Name, "runtime.log", "runtime_"&YYYYMMDDHH24MISS()&".log")
		   objFSO.MoveFile strFile, strFolder & "\" & strNewName
		End If
	Next
	Set objFSO = Nothing
End Function 
Function YYYYMMDDHH24MISS()
	YYYYMMDDHH24MISS = year(date) & string(2-len(month(date)),"0") & month(date) & string(2-len(day(date)),"0") & day(date)
End Function