[megaloman]

Steklopaket, чтобы получилось без кавычек надо сделать так:

Код:

:Restrict
	Set "sDPath=%~1"
 	If "%sDPath:~-1%"=="\" (
		FOR /D %%f IN ("%sDPath:~0,-1%") DO Set "%~2=%%~nxf"
	) Else (
		Set "%~2=%~nx1"
	)
GoTo :Eof

У Iska в первом варианте пропущена строчка

Код:

set "sFolder=C:\папка 1\папка 2"
set "sVAR=%sFolder%"

Steklopaket, Я бы рекомендовал при присваивании переменной строкового значения брать это действие в кавычки, напимер:
set "sFolder=C:\папка 1\папка 2"
Зачем это нужно: Вы визуально не в состоянии контролировать, имеются ли сзади строкового значения лишние пробелы. Часто они приводят к ошибкам.