#Include <File.au3>
#Include <Array.au3>
$source_path = "C:\BENUTZER\"
$target_path = "C:\CHECK\"
$searchstring = "crash" ; z.B. "crash20060905.txt"
$FolderList=_FileListToArray($source_path, "*",2) ; Flag 2 = nur Ordner
If (Not IsArray($FolderList)) and (@Error=1) Then
	MsgBox (0,"","Keine Ordner gefunden.")
	Exit
EndIf
For $i = 1 To $FolderList[0]
	$FileList = _FileListToArray($source_path & $FolderList[$i])
	If IsArray($FileList) Then 	
		For $j = 1 To $FileList[0]
			If $FileList[$j] = "Data" Then ; dein gesuchter Unterordner - falls vorhanden
				$DataFileList = _FileListToArray($source_path & $FolderList[$i] & "\Data")
				If IsArray($DataFileList) Then
					For $k = 1 to $DataFileList[0]
						If StringInStr($DataFileList[$k], $searchstring) <> 0 Then ; in Dateiname ist $searchstring enthalten
							FileCopy($source_path & $FolderList[$i] & "\" & $FileList[$j] & "\" & $DataFileList[$k], _
							$target_path & $FolderList[$i] & "\" & $DataFileList[$k], 8) ; Flag 8 = Ordner erstellen, falls nicht vorhanden
						EndIf
					Next
				EndIf
			EndIf
		Next
	EndIf
Next
If $n > 0 Then
        MsgBox(0,"", "Es wurde(n) " & $n & "Datei(en) kopiert.")
Else
        MsgBox(0,"", "Es wurden keine Dateien kopiert.") 
EndIf