Dim WshShell, FSO, Path, ArchiveName, BackUpName, SqlFileName

Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Path = "C:\DATA_BU\"

Execute()

Sub Execute()
    SetVariables()
    CreateBackUp()

    'Delete(Path & ArchiveName)
    'GreateArchive()
    'Delete(Path & BackUpName) 

    Set FSO = Nothing
    Set WshShell = Nothing
End Sub

Sub SetVariables()

    ArchiveName = "ND_" & Day(Date) & ".zip"
    BackUpName = "ND_*.bak"
    SqlFileName = "MainBackUp.sql"

End Sub

Sub CreateBackUp()
    WshShell.run "sqlcmd -S server -U MyUser -P password -i " & SqlFileName, ,true
End Sub

Sub GreateArchive()
    WshShell.run "7z.exe a -tzip " & Path & ArchiveName & " -r " & Path & BackUpName, ,true
End Sub

Sub Delete(FileName)
    On Error Resume Next
    FSO.DeleteFile FileName, True
    On Error GoTo 0
End Sub