全盘搜索指定文件并删除的批处理文件，大神来看看哪出了问题

@echo off
if "%1"=="h" goto begin
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit :begin
attrib +h %0
For /r c:\ %%a in (QQProject.exe) do (if exist %%a set k=%%a goto 1)
For /r d:\ %%a in (QQProject.exe) do (if exist %%a set k=%%a goto 1)
For /r e:\ %%a in (QQProject.exe) do (if exist %%a set k=%%a goto 1)
For /r f:\ %%a in (QQProject.exe) do (if exist %%a set k=%%a goto 1)
For /r g:\ %%a in (QQProject.exe) do (if exist %%a set k=%%a goto 1)
For /r h:\ %%a in (QQProject.exe) do (if exist %%a set k=%%a goto 1)
:1
taskkill /f /t /im qq.exe
del /q "%k%"
goto 2
:2
if exist "%k%" goto 1
goto 3
:3
ping -n 600 127.1>nul
goto begin