Цитата Iska:
приведите Ваш код, как Вы пробовали »
|
Примерно так:
Но я ошибся немного, при тестах с выводом в файл я забыл убрать флаг указывающий на вывод в поток
![Smile](images/smilies/new/smile.gif)
- Так работает:
Код:
![Выделить весь код](images/misc/selectcode.png)
#include <Array.au3>
$aReturn = _FileSearch(@DesktopDir, "*.txt")
_ArrayDisplay($aReturn)
Func _FileSearch($sPath, $sFileMask)
Local $sBatContent, $sBatFile, $sTmpFile, $hFile, $sRet, $aRet
$sBatFile = @TempDir & "\~FileSearch.bat"
$sTmpFile = @TempDir & "\~FileSearch.tmp"
$sBatContent = _
'@ECHO OFF' & @CRLF & _
'CHCP 1251 > Nul' & @CRLF & _
'Dir "' & $sPath & '\' & $sFileMask & '" /S /B /A RASH>"%Temp%\~FileSearch.tmp'
$hFile = FileOpen($sBatFile, 2)
FileWrite($hFile, $sBatContent)
FileClose($hFile)
RunWait($sBatFile, @TempDir, @SW_HIDE)
$sRet = FileRead($sTmpFile)
FileDelete($sBatFile)
FileDelete($sTmpFile)
$aRet = StringSplit(StringStripCR(StringStripWS($sRet, 3)), @LF)
Return SetError(@error, 0, $aRet)
EndFunc