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
