Kopiering af filer fra mappe

Jeg lavet en funktion der kopierer filerne fra en given mappe til en anden.

Problemet er at hvis jeg kalder funktionen mere end en gang får jeg en fejl "runtime error 76 , Path not found"

Hvad er der galt og er der en nemmere måde at gøre det samme på ?

Her er koden.
---- Kode ----
Function KopierFiler(xFROM As String, xTO As String)
Set FSO = CreateObject("Scripting.FileSystemObject")
' Opretter mappe
If Not FSO.FolderExists(xTO) Then FSO.CreateFolder xTO
File1.Path = xFROM
For n = 0 To File1.ListCount - 1
' Tjekker at filen ikke allerede eksisterer
If Not FSO.FileExists(xTO & "\" & File1.List(n)) Then
' Kopierer fil
FSO.CopyFile xFROM & "\" & File1.List(n), xTO & "\" & File1.List(n)
End If
Next n
End Function

Private Sub Form_Load()
KopierFiler "Data\GameArt", "DMda\GameArt"
KopierFiler "Data\Text", "DMda\Text"
End
End Sub
----------