Automatisches Umbenamsen

Es geht einem schon ganz schön auf den Zeiger, wenn man Fotos im Internet veröffentlichen soll und die Dateien dermassen kryptische Namen haben, dass man beim Coden schier verzweifeln möchte.

Das untenstehende Script benötigt die kleine Executable "chgstr.exe" und fragt vor dem eigentlichen Umbenamsen den Quellordner ab.

Es werden nur Dateien eines bestimmten Typs berücksichtigt.
Jedoch ist auch das anpassbar.

REM *****
REM ***
REM * Das nervige Umbenamsen hat ein Ende.
REM ***
REM *****

@echo off

:ordner
set /p ordner= Welchen Ordner willst Du bearbeiten ?
echo %ordner%
if not exist %0\..\%ordner% echo falsche Eingabe
if not exist %0\..\%ordner% goto ordner


set tools=C:\Tools
set /a i=1
set logfile=logfile.log

rem Anzahl der Bilder (*.jpg) im Ordner ermitteln
dir %ordner%\*.jpg > nrfiles.txt
for /f "tokens=1" %%a in ('findstr.exe "Datei(en)" nrfiles.txt') do set /a max=%%a+1
echo Directory wird gescannt.
dir /b /o-n %ordner%\*.jpg > %ordner%\files.txt

cd %ordner%

:install
if %i%==%max% goto ende
for /f "tokens=1" %%a in ('type files.txt') do set instfile=%%a
echo. >> %logfile%
echo X | %tools%\chgstr.exe "@$" "Time:\TIME, Date:\DATE" >> %logfile%
echo %instfile% wird umbenamst nach %i% >> %logfile%
echo _____________________ >> %logfile%
echo. >> %logfile%

%tools%\chgstr.exe "%instfile%" "" files.txt >NUL

if %i% lss 10 ren %instfile% 0%i%.jpg
if %i% gtr 9 ren %instfile% %i%.jpg


set /a i=%i%+1

goto install

:ende
cd ..

  • Donnerstag, 22 März 2018

Leave a comment

You are commenting as guest.