Este Script es el hermano de este otro Script, genera un archivo de texto que contiene la lista de estructura de carpetas del directorio de trabajo y de sus subdirectorios, el directorio de trabajo se puede modificar en las variables del Script, y la lista de capetas se registra usando la ruta relativa de los archivos de dicho directorio de trabajo.
El Script tiene 2 métodos de listar las carpetas, que son: 1. Listado normal, y 2. Listado incluyendo carpetas ocultas.
El Script tiene la funcionalidad de medir el tiempo transcurrido de la operación.
Todo lo que he mencionado se puede configurar en las variables que están documentadas con comentarios de ayuda en el código.
· Una imagen de muestra:
· El código:
Folders2List.cmd
Código
@Echo OFF REM ================= REM Console Settings: REM ================= Title Folders2List - By Elektro Mode Con Cols=150 Lines=50 REM ===== REM Info: REM ===== Echo+ Echo ------------------------------------------------------------------------------------------------------------------------------------ Echo This script writes a textfile containing the relative paths of the folder structure at the working directory and it's subdirectories Echo ------------------------------------------------------------------------------------------------------------------------------------ Echo+ REM ==================== REM User defined values: REM ==================== REM This value indicates the directory where to list it's folder structure. REM This value indicates the resulting folder list. REM This value indicates how the hidden folders are threated when listing the folder structure. REM True = List folders and also folders with the 'hidden' attribute. REM False = List only normal folders without the 'hidden' attribute. Set "IncludeHiddenFolders=True" REM ===== REM Main: REM ===== :: Display starting info. Echo+ :: Call Methods. Call :CheckErrors Call :StartTimer Call :StopTimer :: Finish. Echo+ Pause&Exit REM ======== REM Methods: REM ======== :StartTimer Goto :EOF :StopTimer ( )>"%TEMP%\%~n0 MinuteDiff.vbs" 'Cscript.exe /Nologo "%TEMP%\%~n0 MinuteDiff.vbs"' ) Goto:EOF :ListFolders Echo [+] Collecting folders, this operation could take some minutes long, please wait... Goto:EOF :ListNormalFolders Set /A "FolderCount+=1" ))>"%OutputFile%" Goto:EOF :ListHiddenFolders Set /A "FolderCount+=1" ))>"%OutputFile%" Goto:EOF REM =============== REM Error Controls: REM =============== :CheckErrors :: 'IncludeHiddenFolders' Value check. Echo [x] Error parsing parameter 'IncludeHiddenFolders', Pause&Exit ) Goto:EOF