Sub tets()


Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileExt As String
Dim objNet As Object

    FromPath = "C:\LocalScorecard"
    ToPath = "\\USER-PC\test" & "\"


         Set objNet = CreateObject("WScript.Network")
         Set FSO = CreateObject("scripting.filesystemobject")
         objNet.MapNetworkDrive "A:", ToPath