string cmd,fn1,sql1
//fn1=fn
//sql1=sql
cmd='F:\内蒙\pb9\test.bat "'+ fn +'.tsv"'+' "'+ sql +'"'
cmd='F:\内蒙\pb9\pyoratsv.py "'+ fn +'.tsv"'+' "'+ sql +'"'
OleObject wsh
integer li_rc
CONSTANT integer MAXIMIZED = 3
CONSTANT integer MINIMIZED = 2
CONSTANT integer NORMAL = 1
CONSTANT boolean WAIT = TRUE
CONSTANT boolean NOWAIT = FALSE
wsh = CREATE OleObject
li_rc = wsh.ConnectToNewObject( "WScript.Shell" )
li_rc = wsh.Run(cmd,NORMAL, WAIT)
// cmd='F:\内蒙\pb9\pyoratsv.py "'+ fn +'.tsv"'+' "'+ sql +'"'
//cmd='F:\内蒙\pb9\test.bat'
//run(cmd,NORMAL!)
//messagebox("导出完毕",cmd)
return 0