[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

[Hack]

Add error trapping which ignores the duplicates error.

[RocketRon]

Hi Hack

I am doing that at the moment with a resume next this does not implement the desired change.
Is there another solution?

PS Sorry did not show this in my post as I try not to use this escape, and will only use it for test purposes.

[RocketRon]

Hi
I added the error trap to overcome duplicates and this works fine if there is only one duplicate but not if there is two, is there a way to resolve this please.

      If Dir(xCopyStrPath & .strArtist & sString) <> vbNullString Then
         Kill xCopyStrPath & .File1.FileName
      Else
Loop_Repeat:
         Name xCopyStrPath & .File1.FileName As xCopyStrPath & sString
      End If
 End With
 
DuplicateFile:
  If Err.Number = 58 Then
    iLen = Len(sString) - 3
    sExtn = Right$(sString, 3)
    sString = Left$(sString, iLen) & "." & sExtn
    Err.Number = 0
    GoTo Loop_Repeat
  End If

[dilettante]

Did you try Resume instead of GoTo?

[RocketRon]

Hi dillettante

Sorry this is a bit late from your post I have been trying to resolve another problem and did not have time to retest your suggestion.
I am now glad I did because it does resolve the problem.
Thanks very much for your help.