doktore1
Jan 08, 2018, updated at 10:51:04 (UTC)
view5135
view3
0
Goto Top

Dateinamen mehrere Dateien ändern mit batch oder vbs Skript

GermansolvedQuestionBatch, ShellDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 360232

Url: https://administrator.de/contentid/360232

Printed on: April 23, 2024 at 07:04 o'clock

3 Comments
Latest comment
Goto Top
Member: beidermachtvongreyscull
Solution beidermachtvongreyscull Jan 08, 2018 updated at 08:37:56 (UTC)
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!
Mitglied: 135111
135111 Jan 08, 2018 updated at 08:45:30 (UTC)
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"  
)
Member: Doktore1
Doktore1 Jan 08, 2018 updated at 10:50:06 (UTC)
Goto Top
@beidermachtvongreyscull
Funktioniert perfekt, danke !

Schönen Tag dir noch

Grüße
GermansolvedQuestionBatch, ShellDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment