doktore1

Dateinamen mehrere Dateien ändern mit batch oder vbs Skript

Hi frohes neues erstmal.

Ich würde gerne alle Dateien in ein Ordner umbenennen.
Und zwar ein Teil des Dateinamen.
Beispiel: Tom_tekor_45
Ändern zu: Tom_früh_45

Es sollte für alle Dateitypen funktionieren auch Dateien ohne .txt am Ende (Dateityp).

Vielen Dank

Grüße
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 360232

Url: https://administrator.de/forum/dateinamen-mehrere-dateien-aendern-mit-batch-oder-vbs-skript-360232.html

Ausgedruckt am: 18.05.2025 um 03:05 Uhr

beidermachtvongreyscull
Lösung beidermachtvongreyscull 08.01.2018 aktualisiert um 09:37:56 Uhr
Goto Top
Dim sName
Dim fso
Dim fol

Set fso = WScript.CreateObject("Scripting.FileSystemObject")  
Set fol = fso.GetFolder("c:\TEST")  

For Each fil In fol.Files
If InStr(1, fil.Name, "tekor") <> 0 Then  
     sName = Replace(fil.Name, "tekor", "früh")  
     fil.Name = sName
End If
Next

Erst testen!
Ich übernehme keine Garantie!
135111
135111 08.01.2018 aktualisiert um 09:45:30 Uhr
Goto Top
@echo off
chcp 1252
for %%a in ("c:\ordner\*") do (  
    for /f "tokens=1-3 delims=_" %%b in ("%%~na") do ren "%%a" "%%b_früh_%%d%%~xa"  
)
Doktore1
Doktore1 08.01.2018 aktualisiert um 11:50:06 Uhr
Goto Top
@beidermachtvongreyscull
Funktioniert perfekt, danke !

Schönen Tag dir noch

Grüße