Doppelte Zeilen aus .txt löschen

set pfad="E:\shares\Daten\Transfer\"  
set vorher="E:\shares\Daten\Transfer\Logs\vorher.txt"  
set nachher="E:\shares\Daten\Transfer\Logs\nachher.txt"  
set logdatei="E:\shares\Daten\Transfer\Logs\geloeschte_verzeichnisse.log"  



rem #######Programm#######

dir %pfad% /ad /s /b >%vorher%

for /F "delims=" %%d in ('dir %pfad% /s /b /ad ^| sort /r') do rd "%%d" >nul  

dir %pfad% /ad /s /b >%nachher%



rem #######LOGDATEI#######

echo --------------Geloeschte leere Verzeichnisse-------------- >%logdatei%
echo ---------------------------------------------------------- >%logdatei%
echo Geloeschte Verzeichnisse					Datum/Uhrzeit				Server >%logdatei%
echo -----------------------					%date%/%time%			%computername% >%logdatei%
echo. >%logdatei%
echo. >%logdatei%

fc /C %vorher% %nachher% >%logdatei%