会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前Option Explicit |
Function padLeft(str, length) |
If Len(str) >= length Then |
padLeft = str |
Else |
padLeft = padLeft("0" + str, length) |
End If |
End Function |
|
Dim fso,targetfile,c,rarfile,N,Date,WshScript,CurPath,ProjectFolder |
N = Now |
Date = CStr(Year(N)) & padLeft(CStr(Month(N)),2) & padLeft(CStr(Day(N)),2) |
c=2 |
Set WshScript = CreateObject("WScript.Shell") |
CurPath = ".\" |
ProjectFolder = "ProjectName" |
targetfile = CurPath + ProjectFolder + Date |
Set 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 If |
Set fso = Nothing |
WshScript.Run """%ProgramFiles%\WinRAR\WinRAR.exe"" a " + rarfile + " " + CurPath + ProjectFolder |
Set WshScript = Nothing |
by: 发表于：2017-12-01 14:57:01 顶(0) | 踩(0) 回复
??
回复评论