Xcopy Streng.. Hvad gør jeg forkert ?

Hej Experter
Jeg håber jeg kan finde hjælp herinde.
Vil gerne kopiere fra Min App.Path til bestemt sti på disk. Men desværre opretter min kode blot et bibliotek istedet. En der kan hjælpe mig videre ?.

Dimm Path As String
Path = App.Path
Shell "xcopy """ & Path & "test2.txt" & "c:\test\test2.txt /C /I /Y", vbHide