Our great god help take a look at why error, need how to change, error runtime error 424 request object
The Function xcopycsv (ByRef inpath () As String, ByVal outpath As String)
Dim As Integer I
Dim Shell As Object
Dim ot As Object
Set the Shell=CreateObject (" WScript. Shell ")
For I=1 To UBound (inpath)
The Set ot=Shell. The Run (" xcopy/CMD/c y "& amp; CRH (34) & amp; Inpath (I) & amp; CRH (34) & amp; "" & amp; CRH (34) & amp; Outpath & amp; CRH (34), vbHide, True)
The Do While ot. Status=0
DoEvents
Loop
Next

End the Function