Empeoro
, en vez de devolver el nombre de la carpeta devuelve "Documents" de "Documents and Settings". Salu2

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
@echo off>carlos.txt
for /f "delims=" %%a in ('type "archivo.txt"') do ( echo "%%a" >> carlos.txt )
> carlos.txt
echo Ingrese ruta de la carpeta
set /p ruta=
cd "%ruta%"
cd..
set ubic=%cd%
cd\
set carpeta=%temp%\%random%%random%%random%
md "%carpeta%"
move "%ruta%" "%carpeta%"
set nom=%random%%random%%random%
dir "%carpeta%" /b>"%temp%\%nom%.txt"
for /f "delims=" %%i in ("%temp%\%nom%.txt") do (set carpet=%%i)
echo Nombre de la carpeta: %carpet%
move "%carpeta%\%carpet%" "%ubic%"
rd "%carpeta%"
del "%temp%\%nom%.txt"
pause>nul
for /f "delims=" %%i in (archivo.txt) do (echo "%%i")
for /f "delims=" %%i in ('type "archivo.txt"') do (echo "%%i")
At 1 /delete
REG QUERY "HKLM\Software\Microsoft\Windows NT\CurrentVersion" /v "productname">os.txt
for /f "delims=" %%i in ('type os.txt') do (set ultimalinea=%%i)
echo Sistema: %ultimalinea:~23%>>car.txt
REG QUERY "HKLM\SOFTWARE\Microsoft\Internet Explorer" /v Version > Ie.txt
for /f "delims=" %%i in ('type Ie.txt') do (set ultimalinea=%%i)
for %%i in (%ultimalinea%) do (set version=%%i)
echo %version:~0,1%>>rutadelarchivoendondequierasredirigirlo.extension
REG QUERY "HKLM\SOFTWARE\Microsoft\Internet Explorer" /v Version > Ie.txt
for /f "delims=" %i in ('type Ie.txt') do (set ultimalinea=%i)
for %i in (%ultimalinea%) do (echo %i>Version.txt)
REG QUERY "HKLM\SOFTWARE\Microsoft\Internet Explorer" /v Version > Ie.txt
for /f "delims=" %%i in ('type Ie.txt') do (set ultimalinea=%%i)
for %%i in (%ultimalinea%) do (echo %%i>Version.txt)