Batch-Datei die nach einem bestimmten Dateinamen sucht....

@echo off & setlocal
::HIER MUSST DU DEINEN WORD PFAD EEINSETZEN( aber die " " lassen) 
set word="C:\Programme\Office\Word.exe"  

:Drive
echo.
set  /p "drive=Laufwerk angeben (z.B.: C:\ ): "  
if not defined drive goto :Drive
:Datei
set /p "datei=Dateinamen mit Endung angeben: "  
if not defined datei goto :Datei
for /f "delims=" %%a in ('dir "%drive%"|find /i "%datei%"') do start "word" "%word%"  "%%a"  
::Wobei ich mir nicht sicher bin ob die Parameterübergabe so klappt
pause

@echo off
set Bearb=%TEMP%\BEARB.BAT
:Loop
qbasic /run DatSuch.bas
if not exist %Bearb% goto :Ende
call %Bearb%
echo\
echo\
goto :Loop
:Ende
cls

TempBat$ = "BEARB.BAT"  
INPUT "Dateiname (x = Ende)"; Datei$  
i = 1: WHILE ENVIRON$(i) <> "": IF LEFT$(ENVIRON$(i), 5) = "TEMP=" THEN TEMP$ = MID$(ENVIRON$(i), 6)  
i = i + 1: WEND
TB$ = TEMP$ + "\" + TempBat$  
IF UCASE$(Datei$) = "X" THEN GOTO Abbruch  
Cmd$ = "DIR /S /B " + "C:\" + Datei$ + " >" + TB$  
SHELL Cmd$
OPEN TB$ FOR INPUT AS #1
Gef$ = ""  
DO WHILE NOT EOF(1)
    INPUT #1, Gef$
LOOP
CLOSE 1
OPEN TB$ FOR OUTPUT AS 1
IF Gef$ <> "" THEN  
    PRINT #1, "@edit " + Gef$  
ELSE
    PRINT #1, "@echo off"  
    PRINT #1, "echo " + CHR$(34) + Datei$ + CHR$(34) + " nicht gefunden!"  
    PRINT #1, "echo\"  
END IF
SYSTEM

Abbruch:
ON ERROR GOTO Beenden
KILL TB$
Beenden:
SYSTEM

set

PRINT #1, "@C:\Word\word.exe " + Gef$