Alle Dateien mit den gleichen Namen via VBS oder Batch in den jeweiligen Ordner kopieren(erstellen)

$quelle = 'c:\ordner'  
$ziel = 'c:\ziel'  
gci 'c:\Ordner\FA*' -File | group {$_.Name.Substring(0,13)} | %{  
    $target = "$ziel\$($_.Name)"  
    If (!(TestPath $target) {md $target}
    $_.Group | move-item -Destination $target -Force
}

Const QUELLE = "C:\quelle"  
Const ZIEL = "C:\ziel"  
Set fso = CreateObject("Scripting.Filesystemobject")  

For Each file In fso.GetFolder(QUELLE).Files
	If Len(file.Name) >= 13 Then
		targetfolder = ZIEL & "\" & Left(file.Name,13)  
		If fso.FolderExists(targetfolder) Then fso.CreateFolder targetfolder
		file.Move targetfolder & "\"  
	End If
Next

@echo off & setlocal ENABLEDELAYEDEXPANSION
set "QUELLE=C:\quelle"  
set "ZIEL=C:\ziel"  
for %%a in ("%QUELLE%\FA*")do (  
	set "name=%%~na"  
	set "target=%ZIEL%\!name:~0,13!"  
	if not exist "!target!" md "!target!"  
	move "%%a" "!target!"  
)