Sub umbenennen() Dim strPfad As String Dim strDatname As String Dim strDatalt As String Dim strDatneu As String Dim vNeuname As Variant 'Erst der Pfad - anpassen strPfad = "C:\Test\" strDatname = Dir(strPfad & "*.csv") Do While Len(strDatname) vNeuname = Split(strDatname, "_") strDatneu = strPfad & vNeuname(0) & ".csv" strDatalt = strPfad & strDatname Name strDatalt As strDatneu strDatname = Dir Loop End Sub
dir *.csv | % { ren $_ ($_.Name.Split("_")[0] + ".csv") -WhatIf }
dir *.csv | % { ren $_ ($_.Name.Split("_")[0] + ".csv") }
58.4k Fragen
249k Antworten
7k Nutzer