Göße aller Dateien eines Dateityps ermitteln (BATCH)

Hallo Community,

in den letzten Tagen habe ich haufenweise Scripts, Tipps und nützliche Anleitungen hier entdeckt und war einfach begeistert.
Also hab ich mich heute dazu durch geringt mich anzumelden, da ich doch nicht alles für mich passendes finden konnte ;)
Ich war begeistert von dem Wissen und Engagement der Community.

Ich hoffe Ihr könnt mir helfen und viel Spaß:

Vorab:
Ich benutze Windows XP (falls das notwendig ist zu wissen^^)

Mein Problem/Aufgabe ist folgendes, ich möchte mit Hilfe einer BATCH-Datei die Größe aller Dateien eines Dateityps ermitteln.
Ich habe einen Ordner mit mehreren Dateien und unterschiedlichen Dateitypen. Davon möchte ich die Größe von speziell ausgewählten Dateitypen rausgefiltert bekommen und dies eventuell möglich machen für mehrere Dateitypen (z.B: doc und zip)


Ich habe schon ein bisschen rumgebastelt und bin auf folgendes gekommen:

set Quelle=c:\test\
set Typen=etx

FOR %%t in (%Typen%) do (
FOR /F "tokens=3" %%i in ('dir /-c /s %Quelle%*.etx') do set Gesamt=%%i
)
echo Groesse der Dateien: %Gesamt%

Allerdings treten folgende Fehler auf:
1. Fehler: Nach erfolgreichem Auslesen und Zusammenfassen der Dateigrößen von (z.B. doc) wird angezeigt:
0 Dir(s) und z.B: 40000000000 Bytes frei (also der freie Speicherplatz)


2. Fehler: Es werden nur die Dateigrößen des selben Dateityps zusammengefasst

3. Fehler wenn ich keine zip dateien habe und doc zuerst bei dateitypen angebe werden diese zwar ausglesen und zusammengefasst da aber *.zip nicht gefunden werden kann steht dann als
echo %Gesamt%=*Dateipfad*

Ich hoffe ihr könnt mir helfen und falls ihr noch zusätliche Informationen braucht, bzw. Fragen habt, ich bin da!

Vielen Dank,
Robert

@echo off & setlocal
set "Quelle=c:\test"  
set "Typen=doc zip"  

set "Spaces=                    "  
for %%t in (%Typen%) do call :ProcessType %%t
goto :eof

:ProcessType
set "Gesamt=%Spaces%0"  
for /f "tokens=3" %%i in ('dir /s /-c "%Quelle%\*.%1" 2^>nul^|findstr "Datei(en)"') do set "Gesamt=%Spaces%%%i"  
echo %1:%Gesamt:~-12%
goto :eof

set "Quelle=c:\test"  
set "Typen=doc zip"   

for %%t in (%Typen%) do call :ProcessType %%t
goto :eof 

:ProcessType
set "Gesamt=%Spaces%0"  
for /f "tokens=3" %%i in ('dir %Quelle%\*.%1 /s /-c 2^>nul^|findstr "Datei(en)"') do set "Gesamt=%Spaces%%%i"  
echo %1:%Gesamt:~-9%
goto :eof

for /f "tokens=3" %%i in ('dir %Quelle%\*.%1 /s /-c 2^>nul^|findstr "File(s)"') do set "Gesamt=%Spaces%%%i"

for /f "tokens=3" %%i in ('dir %Quelle%\*.%1 /s /-c 2^>nul^|findstr /i /r /c:"[0-9] Bytes$"') do set "Gesamt=%Spaces%%%i"