Renaming a file

[npolo]

Is there any simple way to copy a file, and if that file exists in the target rename it with a consecutive number:
example:
File.doc is copied to f:\folders\ then File.doc exists in f:\Folders
then this file should be renamed it to File(1).doc and if is copied again should be File(3).doc and soo on....
HELP

[The Hobo]

To see if file exists:

Public Function FileExists(strFileName As String) As Boolean
  Dim intLen As Integer
  If strFileName$ <> "" Then
    intLen% = Len(Dir$(strFileName$))
    FileExists = (Not Err And intLen% > 0)
  Else
    FileExists = False
  End If
End Function