Disculpe, he entrado pocas veces en este foro, buscare las normas

if %extension% == nul exit

if "%extension%"=="nul" (exit)

@Echo ON
 
set extension=lsc
If NOT defined extension (exit)
 
REM Añadir
REG ADD "HKCR\%extension%_portable\DefaultIcon" /d "%homedrive%\Portables instalados\LogoSoft\LogoSoft.exe,0" /F
REG ADD "HKCU\Software\Classes\%extension%_portable\shell\open\command" /d "%homedrive%\Portables instalados\LogoSoft\LogoSoft.exe \"%%1\"" /F
REG ADD "HKCU\Software\Classes\.%extension%" /d "%extension%_portable" /F
pause
 
REM Eliminar
REG DELETE "HKCR\%extension%_portable\DefaultIcon" /F
REG DELETE "HKCU\Software\Classes\%extension%_portable" /F
REG DELETE "HKCU\Software\Classes\.%extension%" /F
pause
Exit

sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
Set fs = CreateObject("Scripting.FileSystemObject")
Set micarpeta = fs.getfolder(sCurPath)
Set subcarpetas = micarpeta.subfolders
For each s in subcarpetas
Msgbox s.name
Next

@Echo OFF
 
(
Echo aaa
Echo bbb
Echo ccc
Echo ddd
Echo eee
) > "archivo.txt"
 
For /F %%@ in (archivo.txt) Do (
	Set /A NUM+=1
	Call Set "Linea%%NUM%%=%%@"
)
 
echo LINEA1 = %LINEA1%
echo LINEA2 = %LINEA2%
echo LINEA3 = %LINEA3%
echo LINEA4 = %LINEA4%
echo LINEA5 = %LINEA5%
 
pause
Exit