Esta función comprueba si una ruta dada incluye el carácter "\" al final, si no lo incluye lo añade, en caso contrario no hace nada. En resumen: asegura que la ruta dada llevará al final "\".

Ejemplo de uso:

  ...

  carpetaOrigen := IncludeTrailingBackslash(carpetaOrigen);

  carpetaDestino := IncludeTrailingBackslash(carpetaDestino);

  ForceDirectories(carpetaDestino);



  if FindFirst(carpetaOrigen + filtro, 

      faAnyFile, compBusqueda) = 0 then

  begin

    repeat

      if (compBusqueda.Name <> '.') 

          and (compBusqueda.Name <> '..') then

        if (compBusqueda.Attr and faDirectory) > 0 then

          copiaFicheros(carpetaOrigen + compBusqueda.Name,

              carpetaDestino + compBusqueda.Name, filtro,

              reemplazarFicheros, tipoLog)

   ...

  

Funciones Delphi