IncludeTrailingBackslash (carpeta)

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)
   ...
  
alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario