Wait for a 7z (7Zip) Command to Finish and run it on silent 1

[Mharugha]

Good Day,

I'm doing my first steps on vbscript and my first job was to develop a small script to Backup and Compress some SQL databases.

Unfortunately I'm stuck on 2 issues:
1. I can't run the 7Zip Archive command on Silent (The command windows is always popping up indicating the extraction percentage)
2. How can I force VBScript to wait for 7Zip Archive command to finish. As can you see after this procedure i need to delete the .bak databases and keep only the compressed file on folder. I'm using a 'Wscript.Sleep' instruction but this is not perfect because the time to archive can differ from Backup to Backup.

***** CODE BEGIN *****
Set objShell = wscript.createObject("wscript.shell")
InstallPath = """C:\Program Files\7-Zip\7z.exe"""
vTarget = """D:\NTBCKPS\DBS\NT_DBS.7z"""
vSource = """D:\NTBCKPS\DBS\*.bak"""
null1 = """> nul"""

objShell.Run InstallPath & " a -t7z -mx9 -r -y " & vTarget & " " & vSource & " " & null1
REM objShell.Run InstallPath & " a -t7z -mx9 -r -y " & vTarget & " " & vSource

'objShell.Run InstallPath & t & vTarget
'MsgBox "Espera"

Wscript.Sleep 20000


Set objApagar = CreateObject("Scripting.FileSystemObject")
Set pasta = objApagar.getFolder("D:\NTBCKPS\DBS")
'If objApagar.FileExists("D:\NTBCKPS\DBS\*model.bak") Then
If pasta.files.Count <> 0 then
objApagar.DeleteFile("D:\NTBCKPS\DBS\*.bak")
End If

***** CODE END *****

 

[guitarzan]

See the parameters of wscript.shell's Run command, they should solve both your problems:

http://ss64.com/vb/run.html

 

[Mharugha]

Thank you for your help.
Parameter 0 and True helped me.