@echo off
title 用户环境恢复

taskkill /f /t /im Listary.exe
xcopy /E /C /Y /h %~dp0Listary   %APPDATA%\Listary\
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""c:\Users\Public\Desktop\Listary6.lnk""):b.TargetPath=""%~dp0\Listary.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
start %~dp0Listary.exe

