Filesearch Problem.....

[SandelPerieanu]

FileDelete('search.txt')

FileWrite('search.txt', FileSearch('C:\'))

Func FileSearch($search_dir, $files = '')

$old_dir = @WorkingDir

FileChangeDir($search_dir)

$search = FileFindFirstFile('*.*')

While 1

$file = FileFindNextFile($search)

If $file = '' Then ExitLoop

$s_check = StringInStr(FileGetAttrib(StringReplace(@WorkingDir & '\' & $file, '\\', '\')), 'D')

$full_file = StringReplace(@WorkingDir & '\' & $file, '\\', '\')

Select

Case $s_check <> 0

$files &= FileSearch($full_file)

Case $s_check = 0

$files &= $full_file & @CRLF

EndSelect

WEnd

FileClose($search)

FileChangeDir($old_dir)

Return $files

EndFunc ;==>Search

ERROR:

Unable to open file, the maximum number of open files has been exceeded.

WHY?

how many is maximum?

[Valuater]

at a quick glance

FileDelete('search.txt')

FileWrite('search.txt', FileSearch('C:\'))

Func FileSearch($search_dir, $files = '')

$old_dir = @WorkingDir

FileChangeDir($search_dir)

$search = FileFindFirstFile('*.*')

While 1

$file = FileFindNextFile($search)

If $file = '' Then ExitLoop

$s_check = StringInStr(FileGetAttrib(StringReplace(@WorkingDir & '\' & $file, '\\', '\')), 'D')

$full_file = StringReplace(@WorkingDir & '\' & $file, '\\', '\')

Select

Case $s_check <> 0

$files &= FileSearch($full_file)

Case $s_check = 0

$files &= $full_file & @CRLF

EndSelect

WEnd

FileClose($search)

FileChangeDir($old_dir)

Return $files

EndFunc ;==>Search

the function appears to be running within itself over and over

8)

[Jos]

WHY?

how many is maximum?

Max 64 open files...

[SandelPerieanu]

solved.......

woks good and fast...my error....

FileDelete(@DesktopDir & '\Search.txt')

FileWrite(@DesktopDir & '\Search.txt', FileSearch('C:\'))

Func FileSearch($search_dir)

$allfiles = ''

$search_dir = StringReplace($search_dir & '\', '\\', '\')

$search = FileFindFirstFile($search_dir & '*.*')

While 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)

If $check_file = 0 Then $allfiles &= $full_file & @CRLF

WEnd

FileClose($search)

Return $allfiles

EndFunc ;==>FileSearch