Hallo!
Ja genau wie bernd schon sagt wer keine beta will für den hab ichs neugeschrieben:
Code
;~ $dgd = DriveGetDrive("FIXED")
;~ $dat = ""
;~ For $i = 1 To $dgd[0]
;~ $dat&=FileSearch($dgd[$i],"*.id")
;~ Next; So machst du es wenn er alle Festplatten durchsuchen soll!
$dat = FileSearch("c:","*.id")
$file = "id_of_c .log"
if FileExists($file) Then FileDelete($file)
FileWrite($file,$dat)
Func FileSearch($search_dir, $s_ext = '*.*', $sep_char = @CRLF, $last_line = 0)
$allfiles = ''
$z = 0
$search_dir = StringReplace($search_dir & '\', '\\', '\')
$search = FileFindFirstFile($search_dir & '*.*')
While 1
$z += 1
$file = FileFindNextFile($search)
If $file = '' Then ExitLoop
$full_file = $search_dir & $file
$check_file = StringInStr(FileGetAttrib($full_file), 'D')
If $check_file <> 0 Then $allfiles &= FileSearch($full_file, $s_ext, $sep_char, 1)
If $check_file = 0 Then
If $s_ext = '*.*' Then $allfiles &= $full_file & $sep_char
If $s_ext <> '*.*' And StringTrimLeft($s_ext, 1) = StringRight($full_file, StringLen(StringTrimLeft($s_ext, 1))) Then $allfiles &= $full_file & $sep_char
EndIf
WEnd
FileClose($search)
If Not $last_line Then $allfiles = StringTrimRight($allfiles, StringLen($sep_char))
Return $allfiles
EndFunc ;==>FileSearch
Alles anzeigen