Hallo,
Habe es noch verbessert, falls es jemanden interessiert.
Es kann jetzt perfekt das Vorgehen der Kommandozeile "imitieren", um zu
dem Pfad der ausgef�hrten Datei zu gelangen...
D.H. es sucht zuerst im aktuellen Pfad, danach der Reihe nach alle Pfade
aus %PATH%, wobei zuerst nach dem angegebenen Kommando gesucht wird und
falls das nicht zu einem Ergebnis f�hrt auch nach der Datei plus den
Standard-Dateinamen-Erweiterungen, die die Kommandozeile
anh�ngt(%PATHEXT%), also .EXE, .COM, .BAT etc...
Man kann also jetzt auch "which cmd" tippen statt "which cmd.exe".
-----------------------------------------------------------> which.bat
@echo off
setlocal
if "%*" EQU "" goto usage
if "%1" EQU "/?" goto usage
set paths=.;%PATH%
:pathloop
for /F "tokens=1* delims=;" %%i IN ("%paths%") do set
thePath=%%i
for /F "tokens=1* delims=;" %%i IN ("%paths%") do set paths=%%j
if "%thePath:~-1%" NEQ "\" set thePath=%thePath%\
set thePath=%thePath%%1
if exist "%thePath%" echo %thePath%
if exist "%thePath%" goto end
set pathexts=%PATHEXT%
:extloop
for /F "tokens=1* delims=;" %%i IN ("%pathexts%") do set
theExt=%%i
for /F "tokens=1* delims=;" %%i IN ("%pathexts%") do set
pathexts=%%j
if exist "%thePath%%theExt%" echo %thePath%%theExt%
if exist "%thePath%%theExt%" goto end
if "%pathexts%" NEQ "" goto extloop
if "%paths%" NEQ "" goto pathloop
goto end
:usage
echo which.bat - "which" for Win2k V1.0 (freeware)
echo 06/2002 by Claudius Ceteras ([EMAIL PROTECTED])
echo USAGE: which [program]
echo EXAMPLE: which cmd
echo EXAMPLE: which explorer.exe
:end
endlocal
<-----------------------------------------------------------
Gruss,
Claudius
> -----Original Message-----
> From: Michael Guder [mailto:[EMAIL PROTECTED]]
> Sent: Dienstag, 18. Juni 2002 15:15
> To: AspGerman Kaffeehaus
> Subject: [aspdecoffeehouse] AW: RE: OT: Pfad zu einem Prog
> rausbekommen
>
>
> Danke :)
>
> -----Urspr�ngliche Nachricht-----
> Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]]
> Gesendet: Dienstag, 18. Juni 2002 15:03
> An: AspGerman Kaffeehaus
> Betreff: [aspdecoffeehouse] RE: OT: Pfad zu einem Prog rausbekommen
>
> Ja, so gehts...
>
> Habe das gleiche auch mal als batch datei gemacht:
>
> ----------------> which.bat
> @echo off
> setlocal
> set pp=%PATH%
> :loop
> for /F "tokens=1* delims=;" %%i IN ("%pp%") do if
> exist "%%i\%1" echo %%i\%1
> for /F "tokens=1* delims=;" %%i IN ("%pp%") do set
> pp=%%j if "%pp%" NEQ "" goto loop Endlocal
> <----------------
>
> Verwendung:
> which programm.exe
> Z.B.
> which cmd.exe
>
> Getestet auf englischem Win2k
>
> Gruss,
>
> Claudius
>
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
