AutoIt Français

Code : Tout sélectionner

#include <Array.au3>

$Path = "C:\"
$Filter = "*.tif"
$aArray = _DirListToArrayEx($Path, $Filter)
_ArrayDisplay($aArray)


Func _DirListToArrayEx($sPath, $sFilter = "*")
    Local $hSearch, $sFile, $sDirList, $sDelim = "|", $sSDirFTMP = $sFilter, $sSDir = 2, $iFlag = 1
    $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing backslash
    If Not FileExists($sPath) Then Return SetError(1, 1, "")
    If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
    If $sSDir Then $sFilter = "*"
    $hSearch = FileFindFirstFile($sPath & $sFilter)
    If @error Then Return SetError(4, 4, "")
    Local $hWSearch = $hSearch, $hWSTMP = $hSearch, $SearchWD, $FPath = StringRegExpReplace(StringRegExpReplace($sSDir, '[^2]+', ""), "2+", StringRegExpReplace($sPath, '\\', "\\\\")), $sSDirF[3] = [0, StringReplace($sSDirFTMP, "*", ""), "(?i)" & StringRegExpReplace(StringRegExpReplace(StringRegExpReplace(StringRegExpReplace($sSDirFTMP, '[\^\$\(\)\+\[\]\{\}\,\.\=]', "\\$0"), "^[^\*]", "^$0"), "[^\*]$", "$0\$"), '\*', ".*")]
    While 1
        $sFile = FileFindNextFile($hWSearch)
        If @error Then
            If $hWSearch = $hSearch Then ExitLoop
            FileClose($hWSearch)
            $hWSearch -= 1
            $SearchWD = StringLeft($SearchWD, StringInStr(StringTrimRight($SearchWD, 1), "\", 0, -1))
        ElseIf $sSDir Then
            $sSDirF[0] = @extended

            If StringRegExp($sFile, $sSDirF[2]) And Not StringInStr($sDirList, $FPath & $SearchWD) Then
                $sDirList &= $sDelim & $FPath & $SearchWD
            EndIf

            If Not $sSDirF[0] Then ContinueLoop
            $hWSTMP = FileFindFirstFile($sPath & $SearchWD & $sFile & "\*")
            If $hWSTMP = -1 Then ContinueLoop
            $hWSearch = $hWSTMP
            $SearchWD &= $sFile & "\"
        EndIf
    WEnd
    FileClose($hSearch)
    If Not $sDirList Then Return SetError(4, 4, "")
    Return StringSplit(StringTrimLeft($sDirList, 1), "|")
EndFunc