Public Function CopyFilesRenamingDuplicates( _
      ByVal vobjAppl As Object _
    , ByVal vFromDirectories As Variant _
    , ByVal vToDirectory As Variant _
    , ByVal vSeparator As Variant _
    , Optional ByVal vAttributes As Variant _
    ) As Boolean

    CopyFilesToSubdirectories Function
    CopyFilesRenamingDuplicatesSample Subroutine
    DuplicateFileNames Function