[tehnik_srs]

Все, нашел, если кому-нибудь нужно

Global $Found

FileView("D:\Work", 0)

Func FileView($sPath = @ScriptDir, $Flag = 1)
Local $sRet
Local $Find_First = FileFindFirstFile($sPath & "\*.*")
If @error Then Return

While 1
$FindNext = FileFindNextFile($Find_First)
If @error Then ExitLoop
$Full_File = $sPath &"\"& $FindNext
If StringInStr(FileGetAttrib($Full_File), "D") Then
$Found &= $Full_File
$sRet = FileView($Full_File, $Flag)
ElseIf $Flag Then
$Found &= $Full_File
EndIf
WEnd
FileClose($Find_First)
EndFunc

MsgBox(4096, "", $Found)