[Rjkzy]

Сообщение от Black Raider

железобетонный вариант:
после очистки создай заного каталог и все.

либо передавай в функцию еще один параметр, имя главной директории которую удалять не нужно и
проверяй если sDir<>MainsDir то RemoveDir(ExtractFileDir(sDir));

+1 к логике