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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
... 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) ... |