本文共 652 字,大约阅读时间需要 2 分钟。
On error resume next
Dim oShell,admin,pass,user,db,path,name
admin="root"
pass="gsl"
''''''''删除5天前的备份
ddir="d:\mysqlbak"
set Fso=CreateObject("Scripting.FileSystemObject")
set dFol=fso.getfolder(ddir)
set dfs=dfol.files
for each f1 in dfs
temp = f1.name
temp =split(split(temp,".")(0),"@")(1)
if DateDiff("d",temp,date())>5 then
f1.delete
end if
next
''''''
Call db_backup("gsl")
Sub db_backup(db)
path="d:\mysqlbak\"
name=db&"@"&Year(date)&"-"&month(date)&"-"&day(date)&".sql"
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /C mysqldump.exe -u"& admin &" -p"& pass & space(1) & db &">"&path&name,,true
Set oShell = Nothing
End Sub
转载地址:https://blog.csdn.net/weixin_33443932/article/details/113566760 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!