Lenguaje de programación Borland Delphi
A esta función se le pasa como parámetro una ruta y devuelve la última subcarpeta:
function obtenerUltimaCarpeta (ruta : string) : string;
var
i : integer;
ultimaRuta : string;
begin
ultimaRuta := '';
for i := length (ruta) downto 0 do
begin
if ruta[i] <> '\' then
ultimaRuta := ruta[i] + ultimaRuta
else
break;
end;
Result := ultimaRuta;
end;
Un ejemplo de uso:
...
listaCarpetasTMP := TStringList.Create;
for i := 0 to carpetasV.Count - 1 do
begin
//para no coger las subcarpetas anteriores
if (ExcludeTrailingPathDelimiter (
obtenerUltimaCarpeta (rutaBase)) = carpetasV.Items[i]) then
obtenidaUltima := true
else
obtenidaUltima := false;
if obtenidaUltima then
...
Por ejemplo, la función obtenerUltimaCarpeta , para el valor:
C:\Documents and Settings\fernando alonso\Escritorio
devolverá:
Escritorio
Publicado el: 2006-02-11