Kopieren anhand der ersten 4 Stellen des Dateinamens

Option Explicit

Dim fso, Verzeichnis, Datei

' Konstanten definieren   
Const quelle = "C:\temp\test"  
Const ziel = "G:\Skripte\Testdateien"  

' Erstellen des System File Object  
Set fso = CreateObject ("Scripting.FileSystemObject")  

'Prüfen ob Folder existieren, Dateien einlesen und Kopieren   
if fso.FolderExists (quelle)Then
	Set Verzeichnis = fso.GetFolder(quelle)
	MsgBox ("Inhalt von " & quelle)  
	
	For Each Datei in Verzeichnis.Files
		If UCase(Left(Datei.Name, 4)) = "HAM_" OR "BRE_"Then  
			' aktuelle Datei ins Ziellauffwerk kopieren , aber wie ?  
			fso.CopyFile , ziel
		end if 	
	Next	
else msgbox ("Die Quelle ist nicht vorhanden !")  
end if