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

總結

以上是生活随笔為你收集整理的vbs用mysql语句查询数据库_vbs脚本实现window环境下的mysql数据库的备份及删除早期备份...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。