copy-up.vbs

Sub LookForDirs(fldrs, root)
    Dim fldr

    For Each fldr In fldrs
        If fldr.Files.Count > 0 Then
            LookForFiles fldr.Files, root
        End If

        If fldr.SubFolders.Count > 0 Then
            LookForDirs fldr.SubFolders, root
        End If
    Next
End Sub

Sub LookForFiles(files, path)
    Dim objC, f
    Set objC = CreateObject("Scripting.FileSystemObject")
    For Each f In Files
        If objC.FileExists(path&"\"&f.Name) = False Then
            f.copy path&"\"&f.Name, False
            Wscript.Echo "Copied: " & f.Name
        Else
            Wscript.Echo "File exists in root: " & f.Name
        End If
    Next
End Sub

Dim path, objA, objB

path = Wscript.Arguments.Item(0)

Set objA = CreateObject("Scripting.FileSystemObject")

If objA.FolderExists(path) = False Then
    Wscript.Echo "That is not a folder path"
    Wscript.Quit
End If

Set objB = objA.GetFolder(path)

LookForDirs objB.SubFolders, path