Dateien Automatisch verschieben und gleich sortieren, nach Datum!

set year=!datum:~6,4! 
set month=!datum:~0,2! 

@echo off & setlocal ENABLEDELAYEDEXPANSION

:: Quellordner
set "quelle=C:\VL\HistoricalWaferDataLogs\PM2"  

:: Zielordner
set "ziel=C:\VL\HistoricalWaferDataLogs\PM2_Archiv_1FVER1"  

:: durchlaufe alle Dateien die älter als 30 Tage sind und gebe für die FOR-Schleife den Dateinamen und das Änderungsdatum getrennt mit einer Raute aus, für die Trennung in der Schleife
for /f "tokens=1,2,4 delims=#/" %%a in ('forfiles /D -31 /p "%quelle%" /c "cmd /c echo @file#@fdate" 2^>nul') DO @(  
  
  :: entferne die umschließenden Anführungszeichen aus dem Dateinamen
  set "file=%%~a"  

  :: Variablen für die Teile des Datums setzen
  set month=%%b
  set year=%%c

  :: Zielordner zusammensetzen
  set "zielordner=%ziel%\!year!\!month!"  

  :: Wenn der Ordner noch nicht existiert, erstelle ihn
  if not exist "!zielordner!" md "!zielordner!"  

  :: Verschiebe Datei in den neuen Ordner
  move "%quelle%\!file!" "!zielordner!"  
)

forfiles /c "cmd/c echo @fdate"

$quelle = "C:\VL\HistoricalWaferDataLogs\PM2"  
$ziel = "C:\VL\HistoricalWaferDataLogs\PM2_Archiv_1FVER1t"  
$files = dir $quelle | ?{!$_.PSIsContainer -and $_.LastWriteTime -lt (get-date).AddMonths(-1)}
foreach($file in $files){
    $newfolder = "$ziel\$($file.LastWriteTime.Year)\$($file.LastWriteTime.Month)"  
    if (!(Test-Path $newfolder)){md $newfolder -Force}
    move-item $file.FullName $newfolder -Force
}

Const quelle = "C:\VL\HistoricalWaferDataLogs\PM2"  
Const ziel = "C:\VL\HistoricalWaferDataLogs\PM2_Archiv_1FVER1"  

Set fso = CreateObject("Scripting.Filesystemobject")  
For Each f In fso.GetFolder(quelle).Files
	If f.DateLastModified < DateAdd("m",-1,Now()) Then  
		newPath = ziel & "\" & Year(f.DateLastModified) & "\" & Month(f.DateLastModified)  
		
		If Not fso.FolderExists(ziel & "\" & Year(f.DateLastModified)) Then   
			fso.CreateFolder(ziel & "\" & Year(f.DateLastModified))  
		End If
		If Not fso.FolderExists(newPath) Then 
			fso.CreateFolder(newPath)
		End If
		fso.MoveFile f.Path, newPath & "\"  
	End If
Next
MsgBox "Fertig"