>258 Option Explicit Dim ws, arg, exe exe = WScript.ScriptFullName exe = """" & Left(exe, Len(exe) - Len(WScript.ScriptName)) _ & "Easyzip.exe""" Set ws = CreateObject("WScript.Shell") If WScript.Arguments.Count Then For Each arg In WScript.Arguments ws.Run exe & " " & arg, , True Next Else ws.Run exe End If WScript.Quit