recuperar file de un path

[ElAprendiz]

i=1
do
if left(archivo,i)<>"/"
i=i+1
else
exit do
end if
loop

archivo=left(archivo,i)

no se si funcione pero es un idea...