Option Explicit

Dim strSourceFile
Dim strDestPath


If WScript.Arguments.Count = 2 Then
    With WScript.CreateObject("Scripting.FileSystemObject")
        strSourceFile = WScript.Arguments.Item(0)
        strDestPath   = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:ProgramFiles").self.Path, WScript.Arguments.Item(1))
        
        If .FileExists(strSourceFile) Then
            If .FolderExists(strDestPath) Then
                .CopyFile strSourceFile, strDestPath & "\", True
            Else
                ' bla-bla-bla
            End If
        Else
            ' bla-bla-bla
        End If
    End With
Else
    ' bla-bla-bla
End If

WScript.Quit 0