Nach datei suchen

Hi,

ein paar mehr Infos wären nicht schlecht. In einem Ordner, aif einer Festplatte, auf allen Festplatten, auf einer Cd? Was ist bei Mehfachfindungen?

Wohin soll sie kopiert werden?

usw.

So long,

Mega

Hi,

$File = "c:\*.txt"
RunWait(@ComSpec & ' /c dir ' & $file & ' / S > c:\found.txt ', '', @SW_HIDE)

So long,

Mega

Stichworte FileReadToArray, For-Schleife, UBound, FileCopy...
Das sollte weiterhelfen.

peethebee

Hi,

hier mal vorgekaut. :schild4:

Search("c:\Downloads", "txt");replace with your search directory and file extension required

Func Search($current, $ext)
Local $search = FileFindFirstFile($current & "\*.*")
While 1
Local $file = FileFindNextFile($search)
If @error Or StringLen($file) < 1 Then ExitLoop
If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
If StringRight($current & "\" & $file, StringLen($ext)) = $ext Then
MsgBox(0, "Dateiendung " & $ext, $current & "\" & $file)
; Hier kopieren, löschen, umbennen etc.
EndIf
EndIf
If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
Search($current & "\" & $file, $ext)
EndIf
WEnd
FileClose($search)
EndFunc ;==>Search

So long,

Mega