Dateien mit gleichem Namen und unterschiedlichen Endungen finden

Hallo,

die aktuelle Situation sieht folgendermaßen aus: Meine User verschicken recht große Mailattachments und haben gelernt, diese Dateien per Kontextmenue --> Senden an --> ZIP-komprimierten Ordner zu komprimieren. Allerdings reicht in vielen Fällen der Umgang mit (und das Verständnis für) ZIP nicht wirklich weiter; das Löschen der Originaldatei scheint eine nicht zu überwindende Hürde zu sein.

In einem einzelnen Ordner liegt also
a) die Datei dateiname.zip und
b) die Datei datiename.dwg (oder .dxf oder .plt oder so).
Bei dxf-Files mit 90MB unkomprimiert macht das auf Dauer nicht wirklich glücklich.

Ich benötige also ein Batch, das mir ab einem bestimmten Startordner jeden Unterordner nach xxxx.zip durchsucht und ermittelt, ob im selben Unterordner zusätzlich eine gleichnamige Datei mit anderer Endung liegt. Der Name dieser Datei sollte incl. des (relativen) Pfades in ein Textfile geschrieben werden.

Hat jemand von euch zu so einen Problem vielleicht schon was gemscht oder ein kurzes Gerüst? Ich habe hier gerade gefühlten Montagmorgen (und keine Ruhe zum Scripteln).

Gruß, geTuemII

::---Snipp geTuemII.bat optParam1 StartDir optParam2:Dateiname [Ext=Zip wird unterstellt]
@for /R %1 %%i in ("%2*.zip") do @(  
    for /f "delims=" %%j in ('dir /a-d /b "%%~dpni.*"^|find /i /v ".zip"') do @echo "%%i": %%~dpi%%j  
)   

>f:\temp\geTuemII.bat d:\temp t
"d:\temp\down\Tigerneu.zip": "d:\temp\down\Tigerneu.doc"  

@echo off & setlocal enabledelayedexpansion
set "Start=%~1"  
if [%Start:~-1%] neq [\] set "Start=%Start%\"  
for /r "%Start%" %%i in (*.zip) do call :ProcessFile "%%i"  
goto :eof
:ProcessFile
for /f "delims=" %%d in ('dir /b "%~dpn1.*" ^|findstr /v /c:"%~nx1"') do (  
	set "File=%~dp1%%d"  
	echo !File:%Start%=!
)

GetMeThoseUnneccessaryAlreadyZippedFilesWithRelativePath.bat "D:\Test für Zips\Files"