VBS Code:
Dim fso, f, WSHshell, oExec, DateLast2, DateNew
CStr(DatePart("yyyy", Now()))
DateNew = Date()
DateLast2 = DateAdd("d",-2,DateNew)
DateNew = replace(DateNew,".","_")
DateLast2 = replace(DateLast2,".","_")
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHshell = CreateObject("WScript.Shell")
WshShell.Exec("taskkill /IM 1cv8.exe /T /F")
[b]WScript.Sleep 10000[/b]
Set oExec = WshShell.Exec(Chr(34) & "C:\Program Files (x86)\1cv82\common\1cestart.exe" & Chr(34) & " config /Ssrv\nm /Nadm /P12345 /DumpIBG:\" & DateNew & ".dt")
[b]Do While oExec.Status = 0
WScript.Sleep 100
Loop
[/b]
Set f = fso.CreateTextFile("ftp.a", True)
f.WriteLine("open хх.ххх.хх.ххх")
f.WriteLine("пользователь")
f.WriteLine("пароль")
f.WriteLine("put " & DateNew & ".dt")
f.WriteLine("delete " & DateLast2 & ".dt")
f.Write("quit")
f.Close
Set oExec = WshShell.Exec("ftp -s:ftp.a")
[b]Do While oExec.Status = 0
WScript.Sleep 100
Loop
[/b]
fso.DeleteFile(DateNew & ".dt")
проблема в том что
Do While oExec.Status = 0
WScript.Sleep 100
Loop
не работает - то есть не ждет завершения процесса. Может кто сталкивался?