ErikPshat
Ну, короче все запустилось. Нужно было заменить nx на f
  
  
было
	for /f "delims=" %%i in ('dir /b/s/a-d %PKGNAME%^|sort /+44') do set "var=%%~nxi"&call :pr
 
стало
	for /f "delims=" %%i in ('dir /b/s/a-d %PKGNAME%^|sort /+44') do set "var=%%~fi"&call :pr
 
И еще позаимствовал у TrueAncestor_BACKUP_Injector утилиту 
sfoprint, чтобы вытаскивать ID игры из PARAM.SFO.
Получилось как-то так 
	echo Selected PKG(s): %PKGNAME%
for /f "delims=" %%i in ('dir /b/s/a-d %PKGNAME%^|sort /+44') do set "var=%%~fi"&call :pr
del %temp%\temp.cmd/q
 
:: Переименовываем папку BLUS/BLES в NPUB/NPEB
for /f "tokens=3" %%q in ('%temp%\ISO2BACKUP\sfoprint PATCH\PARAM.SFO TITLE_ID') do set "DIRNAME=%%~q"
echo %DIRNAME%> %temp%\1.tmp
set NAME="NP"%DIRNAME:~2,1%"B"%DIRNAME:~4,5%
if exist %NAME% (
%temp%\ISO2BACKUP\wpt "STOP" "Folder not empty. Please, remove the folder NP" Ok x
del %temp%\1.tmp
goto :end
)
ren PATCH %NAME%
 
	:pr
%temp%\ISO2BACKUP\PS3P_PKG_Ripper -o "PATCH" "%var%"