- Сообщения
- 5,379
- Репутация
- 2,724
Функция ищет файл(ы) по маске в указанной корневой директории и всех ее субдиректориях и выводит информацию в консоль. Ну прям как поиск в Windows. Используется рекурсия.
Код:
#Include <File.au3>
_FindFiles('C:', '*.txt')
Func _FindFiles($sRoot, $sFile)
Local $FileList
$FileList = _FileListToArray($sRoot, $sFile, 1)
If Not @error Then
For $i = 1 To $FileList[0]
ConsoleWrite($sRoot & '\' & $FileList[$i] & @CR)
Next
EndIf
$FileList = _FileListToArray($sRoot, '*', 2)
If Not @error Then
For $i = 1 To $FileList[0]
_FindFiles($sRoot & '\' & $FileList[$i], $sFile)
Next
EndIf
EndFunc ;==>_FindFiles