Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Basiskenntnisse in VBA
Moin Christian, :-)
... mit
PowerShell probieren: ;-)
Option Explicit
Public Sub Main()
Dim strPS As String
Dim strDL As String
strDL = Environ$("USERPROFILE") & "\Downloads"
strPS = "$strDL='" & strDL & "';"
strPS = strPS & "Remove-Item (Join-Path $strDL ""L*.csv"") -ErrorAction SilentlyContinue;"
strPS = strPS & "$files=Get-ChildItem $strDL -Filter *.csv | Sort LastWriteTime -Descending | Select -First 3 | Sort Length -Desc;"
strPS = strPS & "$i=1;"
strPS = strPS & "foreach($f in $files){Rename-Item $f.FullName ('L'+$i+'.csv') -Force;$i++}"
Shell "powershell.exe -NoProfile -ExecutionPolicy Bypass -Command " & Chr(34) & strPS & Chr(34), vbHide 'vbNormalFocus
End Sub
Das geht auch als "
Einzeiler", aber so ist es
übersichtlicher. ;-)
Ist
getestet. ;-)
Servus
Case