(setq RutaArchivos
"M:\\20150115 Proceso\\20150118 PROPUESTA CARPETAS\\NOMBREPROYECTO_AŅOMESDIA\\03-EJECUTIVO\\14-ILUMINACION"
TextoABuscar "X-ENTREGAS"
)
(BuscaEntrega RutaArchivos TextoABuscar)
(defun BuscaEntrega (RutaArchivos TextoABuscar)
(cond
((eq (strlen RutaArchivos) 3)nil) ;_Se toma en consideracion que la ruta
;_llego a la raiz c:\ o similar
((not (member TextoABuscar
(VL-DIRECTORY-FILES RutaArchivos "*" -1)
)
)
(BuscaEntrega (VL-FILENAME-DIRECTORY RutaArchivos) TextoABuscar)
)
(T (strcat RutaArchivos "\\" TextoABuscar))
)
)
function Get-Entregas ($Path,$CadenaaBuscar)
{
if (-not(test-path $Path)) {Write-host " "}
elseif (-not @(get-childitem $Path -filter $CadenaaBuscar))
{Get-Entregas (split-path $Path)}
else
{
$NuevoDirectorio = $Path + '\' + $CadenaaBuscar
}
write-host $NuevoDirectorio
}
Get-Entregas $Path