Dateien suchen und verändern

Hallo,

Ich stehe vor folgendem Problem.
Ich habe einen Ordner XY in dem sind weitere unterordner Ordner_ab_1, Ordner_ef_2, Ordner_er_45, ...
In jedem Ordner sind verschied Dateien und ein .jpg.

Ich will jetzt das JPG aus jedem Ordner wie der Ordner nummerieren also nur 1.jpg, 2.jpg, 45.jpg, ... und danach in einen Sammelordner verschieben.

Wer kann mir dazu hilfe anbieten? Ich habe schon einiges versuch wie z.B.:

$search = FileFindFirstFile("D:\ToSrv\*\*.jpg")


If $search = -1 Then
	Exit
EndIf


While 1
	$file = FileFindNextFile($search)
	If @error Then ExitLoop
WEnd

Wäre schön wenn mir jemand eine funktionierende methode zum finden der jpg's nennen könnte.

Moin,

so vielleicht:

[spoiler]

$spath = "D:\ToSrv"
$sRequest = "*.jpg"
$sSammel = "E:\Sammel"
local $Datei

;Finde alle *.jpg in allen Unterverzeichnissen
$aResults = _FileSearch($sPath, $sRequest, 1, 0)
If @error Then
MsgBox(48, "Achtung!", "Keine Dateien gefunden!")
Else
;Schleife über Ergebnisse
For $i = 1 to UBound ($aResults) - 1
;Splitte Absoluten Pfad
$temp = StringSplit ($aResults [$i], "\")
;Splitte letztes Unterverzeichnis
$temp1 = StringSplit ($temp [UBound ($temp) - 2], "_")
;Setze neuen Dateinamen zusammen
For $k = 1 To UBound ($temp) - 2
$Datei &= $temp [$k] & "\"
Next
$Datei = $Datei & $temp1 [UBound ($temp1) - 1] & ".jpg"
;Benenne Datei um
FileMove ($aResults [$i], $Datei)
;Hier nun FileMove für Sammelverzeichnis, könnte auch mit filemove gemacht werden....
FileCopy ($Datei, $sSammel ,
FileDelete ($Datei)
Next
EndIf
;================================================================================
;Flag = 1 search with recurse
;Flag <> 1 search without recurse
;
;$iRet = 1 return parent directory of the file path
;$iRet <> 1 return full file path
;
;$iStatus_CtrlID - If this is an id of the label control, the function will set the current status of the search
;
;On Failure set @error as following:
; 1 - $sPath is not a dir or it not exists (in this case returned -1).
; 2 - $sPath is empty dir.
; 3 - No files found in $sPath dir.
;
;On Seccess return an array with found files.
;================================================================================
Func _FileSearch($sPath, $sMask, $iFlag=0, $iRet=0, $iStatus_CtrlID=0)
If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, -1)

Local $aRetPathArr[1], $sFindNextFile, $sCurrentPath, $aSubDirFindArr
If StringInStr($sMask, "*") Then $sMask = StringReplace($sMask, "*.", "")

$sPath = StringRegExpReplace($sPath, '\\+ *$', '\')

Local $hSearch = FileFindFirstFile($sPath & "\*.*")
If @error = 1 Then Return SetError(2, 0, 0)
If $hSearch = -1 Then Return SetError(3, 0, 0)

While 1
$sFindNextFile = FileFindNextFile($hSearch)
If @error = 1 Then ExitLoop

$sCurrentPath = $sPath & "\" & $sFindNextFile

If $iFlag = 1 And StringInStr(FileGetAttrib($sCurrentPath), "D") Then
$aSubDirFindArr = _FileSearch($sCurrentPath, $sMask, $iFlag, 0, $iStatus_CtrlID)
If @error Then ContinueLoop

For $i = 1 To $aSubDirFindArr[0]
$aRetPathArr[0] += 1
ReDim $aRetPathArr[$aRetPathArr[0]+1]

$aRetPathArr[$aRetPathArr[0]] = $aSubDirFindArr[$i]
If $iRet = 1 Then _
$aRetPathArr[$aRetPathArr[0]] = StringRegExpReplace($aRetPathArr[$aRetPathArr[0]], "\\[^\\]*$", "")
Next
Else
If $sMask = "*" Or $sFindNextFile = $sMask Or StringRegExpReplace($sCurrentPath, '^.*\.', '') = $sMask Then
$aRetPathArr[0] += 1
ReDim $aRetPathArr[$aRetPathArr[0]+1]

$aRetPathArr[$aRetPathArr[0]] = $sCurrentPath
If $iRet = 1 Then $aRetPathArr[$aRetPathArr[0]] = $sPath
EndIf
EndIf
WEnd

FileClose($hSearch)

If $aRetPathArr[0] = 0 Then Return SetError(3, 0, 0)

Return $aRetPathArr
EndFunc

(/spoiler]

;-))
Stefan

Danke für die Hilfe die lösung von Greenhorn hat mir weitergeholfen.

THX