oracle_bakup.vbs

大型超市购物系统。该系统分为10大模块

Option Explicit

On Error Resume Next


Dim fname, cmd
Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

fname = Date
cmd = "exp log=../backup/" & fname & "_Oracle_bak.log file=../backup/" & fname & "_Oracle_bak.dmp parfile=exp.txt"

WshShell.run cmd

Set WshShell = Nothing

'WScript.Echo cmd