中国DOS联盟

@echo off
setlocal enabledelayedexpansion
set disk=cdefghijklmnopqrstuvwxyz
FOR /L %%i IN (0,1,23) DO (
Call set driver=%%disk:~%%i,1%%
dir /b /s !driver!:\qq.exe &&!driver!:&&for /r . %%a in (.) do (@if exist %%a\QQ.exe @echo %%a>>c:\qqMULU.txt)
)

@echo ***********************>>c:\qqshu.txt
for /f %%q in (c:\qqMULU.txt) do (
set /p dpath=<%%q"
cd !dpath!
pause
for /d %%w in (*) do @echo %%w>>c:\qqshu.txt
@echo ********欢迎使用*********>>c:\qqshu.txt
findstr "^[0-9]*$" c:\qqshu.txt>>c:\qqshu.txt
)

自写批处理无法通过？
1.查找QQ路径
2.查找路径下目录名
3.挑选出由数字组成的目录名，写入文本中。
请高手指教。

@echo off

for /f %%a in ('dir /b/ad "%programfiles%\tencent\qq\*"') do (

  echo.%%a|findstr "^*$"

)

pause

哈哈 网吧这边的放在d盘 。。。
而系统盘是在c盘 so ....

整个全盘的吧。

Last edited by 523066680 on 2009-3-17 at 02:33 ]

回exist:
那就查注册表吧:

@echo off

for /f "tokens=2*" %%a in ('reg query "hklm\software\tencent\qq"^|find /i "install"') do (set "qqpth=%%b")

for /f %%a in ('dir /b/ad "%qqpth%\*"') do (

  echo.%%a|findstr "^*$"

)

pause

@echo off
setlocal enabledelayedexpansion
set disk=cdefghijklmnopqrstuvwxyz
FOR /L %%i IN (0,1,23) DO (
Call set driver=%%disk:~%%i,1%%
dir /b /s !driver!:\qq.exe>>c:\qqMULU.txt)
)
for /f "delims=*" %%q in (c:\qqMULU.txt) do (
set p=%%~pq
set "c=%%~dq"
!c!
cd !p!
pause
for /d %%w in (*) do (
echo %%w|findstr "^*$">>c:\qqshu.txt)
)
pause

可否照此思路改进一下，使其不用生成临时文本，来存储路径？

Last edited by 9zhenzhi9 on 2009-3-17 at 04:20 ]

@echo off&set "QQpath="

for /f "skip=4 tokens=1,2 delims=:" %%a in (

'reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install'

) do set QQPathL=%%a&set "QQPathR=%%b"

set "QQPath=%QQPathL:~-1%:%QQPathR%"

if exist "%QQPath%.\QQ.exe"  (

  for /f "delims=" %%a in ('dir/b/ad "%QQPath%"^|findstr /v ""')do echo %QQPath%%%a

)

pause

Last edited by 26933062 on 2009-3-17 at 04:37 ]

@echo off

reg export HKLM\SOFTWARE\TENCENT\QQ tmp.reg >nul

for /f "skip=3 tokens=1,* delims==" %%a in ('type tmp.reg') do (

  dir /ad/b "%%~fb"|findstr "^*$"

  pause & del tmp.reg & exit /b

)

最上面那句是什么意思？