[RESOLVED] Allow Duplicates

[RocketRon]

Hi
When I use the code below all is fine unless there is a duplicate then it creates an error.
Q. How can I allow duplicates?

 If Dir(xCopyStrPath & .strArtist & sString) <> vbNullString Then
         Kill xCopyStrPath & .File1.FileName
      Else
         Name xCopyStrPath & .File1.FileName As xCopyStrPath & sString
      End If