#include <File.au3>
$d = 0
$var = DriveGetDrive( "all" )
For $i = 1 to $var[0]
;MsgBox(64, "Диск", $var[$i])
$var2 = DriveGetType($var[$i])
;MsgBox(64, "Тип диска:", $var2)
If $var2 = "Fixed" Then
_FindFiles( $var[$i], 'qwerty.txt')
EndIf
Next
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] )
If $d = 0 then
Run($sRoot & '\' & $FileList[$i], "")
$d = 1
Endif
Next
EndIf
$FileList = _FileListToArray($sRoot, '*', 2)
If Not @error Then
For $i = 1 To $FileList[0]
_FindFiles($sRoot & '\' & $FileList[$i], $sFile)
Next
EndIf
EndFunc