@echo off & SetLocal EnableDelayedExpansion
set /a total=0
set listaExtensiones[0]=""
REM Inicio del proceso
:: Recuperamos fecha y hora de inicio y se guarda en el fichero de salida
echo INICIO %date% %time% >> tipos_aux.txt
:: Recorre directorios/subdirectorios desde la raiz
for /r %%a in (.) do (
:: Accede y almacena las rutas de directorios y subdirectorios a tratar
pushd %%a
:: Recorre los diferentes ficheros del directorio
for %%b in ("*.*") do ( call :getExtensiones %%b
)
:: Descarta las rutas almacenadas una vez tratadas
popd
)
:: Muestra la lista de las diferentes extensiones de archivo
for /l %%n in (0,1,!total!) do (
echo !listaExtensiones[%%n]! >> tipos_aux.txt
)
REM Fin del proceso
:: Recuperamos fecha y hora de fin y se guarda en el fichero de salida
echo FIN %date% %time% >> tipos_aux.txt
:: Ordena fichero
sort tipos_aux.txt > tipos.txt
:: Borra fichero auxiliar
del tipos_aux.txt
:: Finaliza el proceso
goto:EOF
:getExtensiones
set archivo=%1
set extension=%~x1
if not !extension!=="" (
if !listaExtensiones[0]!=="" (
set listaExtensiones[0]=!extension!
) else (
set /a tratado=0
for /l %%n in (0,1,!total!) do (
if !listaExtensiones[%%n]!==!extension! set /a tratado=1
)
if !tratado!==0 (
set /a total+=1
set listaExtensiones[!total!]=!extension!
)
)
)
Crear cuenta
Comentarios sobre la versión: 1.0 (0)
No hay comentarios