vbs用mysql语句查询数据库_vbs脚本实现window环境下的mysql数据库的备份及删除早期备份...

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