Challenge mit einem Batch beim Umbennen von Files mit einem Punkt im Namen gesucht

@echo off
FOR /F "delims=" %%i in ('dir /b "C.\dateien\*.*"') do call:umbenennen "%~ni" "%~xi"  
goto:eof

:umbenennen
set "name=%~1"  
ren "C.\dateien\%~1%~2" "%name:.=-%%~2"  

Const Path = "C:\Ordner"  

Dim Folder, File, oldName, newName

Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder(Path)  

For Each File In Folder.Files
    oldName = Split(StrReverse(File.Name), ".", 2)  
    newName = Replace(StrReverse(oldName(1)), ".", "-") & "." & StrReverse(oldName(0))  
    If File.Name <> newName Then File.Name = newName
Next

cd /d "C:\Ordner"  
FOR /R %%i in ("*.*") do call :umbenennen "%%~pi" "%%~ni" "%%~xi"  
goto :EOF

:umbenennen 
REM path name_only ext
set "name=%~2"   
ren "%~1%~2%~3" "%~1%name:.=-%%~3"  

@echo off & setlocal
FOR /R "D:\Biber" %%i in ("*.*") do call :umbenennen "%%~fi"  
goto :EOF

:umbenennen 
:: den Namen (ohne Ext) in eine Variable speichern zum Suchen/ersetzen
Set "name=%~n1"   
:: Punkt durch Minus ersetzen
Set "Name=%name:.=-%"  
:: Wenn kein Punkt im Namen war bzw. NameVorher gleich NameNachher.ZURÜCK
If "%name%"=="%~n1" goto :eof  
:: sonst : Umbenamsen HIER NUR ANGEDEUTET mit ECHO
Echo ren "%~1" "%name%%~x1"  

>z:\austausch\edev.cmd
ren "D:\Biber\downloads\KDiff3Setup_0.9.95.exe" "KDiff3Setup_0-9-95.exe"
ren "D:\Biber\downloads\seamonkey-1.1.16.de-AT.win32.zip" "seamonkey-1-1-16-de-AT-win32.zip"

@echo off & setlocal enableextensions                
FOR /R "C:\Ordner" %%i in ("*.*") do call :umbenennen "%%~pi" "%%~ni" "%%~xi"  
goto :EOF

:umbenennen 
REM path name_only ext
set "name=%~2"   
ren "%~1%~2%~3" "%name:.=-%%~3" || echo FEHLER bei "%~1%~2%~3"  

>echo xx>test23.txt
>ren test23.txt test23.txt ||echo fehler
{... echoes nothing..}