VBScript调用WinRAR备份项目目录用日期作为文件名

概述VBScript调用WinRAR备份项目目录用日期作为文件名

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Option ExplicitFunction padleft(str,length) If Len(str) >= length Then 	padleft = strElse	padleft = padleft("0"  + str,length)End IfEnd FunctionDim fso,targetfile,c,rarfile,N,Date,WshScript,CurPath,ProjectFolderN = NowDate = CStr(Year(N)) & padleft(CStr(Month(N)),2) & padleft(CStr(Day(N)),2)c=2Set WshScript = CreateObject("WScript.Shell")CurPath = ".\"ProjectFolder = "Projectname"targetfile = CurPath + ProjectFolder + DateSet fso = CreateObject("Scripting.fileSystemObject")If fso.fileExists(targetfile & ".rar") Then	do while fso.fileExists(targetfile & "_" & c & ".rar")		c = c + 1	Loop	rarfile = targetfile & "_" & c & ".rar"Else	rarfile = targetfile & ".rar"End IfSet fso = nothingWshScript.Run """%Programfiles%\WinRAR\WinRAR.exe"" a " + rarfile + " " + CurPath + ProjectFolderSet WshScript = nothing

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的VBScript调用WinRAR备份项目目录用日期作为文件名全部内容，希望文章能够帮你解决VBScript调用WinRAR备份项目目录用日期作为文件名所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。