�hm .. bei mir funzt des nich :(

Deutsches W2K ...

FM: Der Befehl "thePath" ist entwerder falsch geschrieben ......



-----Urspr�ngliche Nachricht-----
Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 18. Juni 2002 18:26
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] RE: AW: RE: OT: Pfad zu einem Prog rausbekommen

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

| [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

Antwort per Email an