[proxy]

Код:

#include <Array.au3>

;Папка аутоита
$AutoItPath = StringRegExpReplace(@AutoItExe, '\\[^\\]+$', '')

$DirsArray = DirListToArray($AutoItPath, 1)
_ArrayDisplay($DirsArray)

Func DirListToArray($sPath, $iWithFolder=0, $sRootPath=1)
    $sPath = StringRegExpReplace($sPath, '\\+$', '')
    Local $aRetArray[1], $aSubDirsArr, $sFindNextFile, $sCurrentPath

    Local $sFindFirstFile = FileFindFirstFile($sPath & "\*.*")
    If @error = 1 Then Return SetError(1, 0, -1)

    If $iWithFolder == 1 AND $sRootPath == 1 Then
        $aRetArray[0] += 1
        ReDim $aRetArray[$aRetArray[0]+1]
        $aRetArray[$aRetArray[0]] = $sPath
;~      _Set_Attrib_And_Time($sPath)
    EndIf

    If $sRootPath = 1 Then
        ReDim $aRetArray[2]
        $aRetArray[1] = $sPath
    EndIf

    While 1
        $sFindNextFile = FileFindNextFile($sFindFirstFile)
        If @error = 1 Then ExitLoop

        $sCurrentPath = $sPath & "\" & $sFindNextFile

        If StringInStr(FileGetAttrib($sCurrentPath), "D") Then
            If $iWithFolder == 1 Then
                $aRetArray[0] += 1
                ReDim $aRetArray[$aRetArray[0]+1]
                $aRetArray[$aRetArray[0]] = $sCurrentPath
;~              _Set_Attrib_And_Time($sCurrentPath)
            EndIf

            $aSubDirsArr = DirListToArray($sCurrentPath, $iWithFolder, 0)

            If IsArray($aSubDirsArr) Then
                For $i = 1 To $aSubDirsArr[0]
                    $aRetArray[0] += 1
                    ReDim $aRetArray[$aRetArray[0]+1]
                    $aRetArray[$aRetArray[0]] = $aSubDirsArr[$i]
                Next
            EndIf
        Else
            $aRetArray[0] += 1
            ReDim $aRetArray[$aRetArray[0]+1]
            $aRetArray[$aRetArray[0]] = $sCurrentPath
;~          _Set_Attrib_And_Time($sCurrentPath)
        EndIf
    WEnd

    FileClose($sFindFirstFile)

    Return $aRetArray
EndFunc

Func _Set_Attrib_And_Time($sPath)
    FileSetAttrib($sPath,"-RASHNOT",1)
    FileSetTime($sPath,"20010101000000",0,1)
    FileSetTime($sPath,"20010101000000",1,1)
    FileSetTime($sPath,"20010101000000",2,1)
EndFunc

закомментированные строчки вызов функции для установки атрибутов и времени.
применять на папку AutoIt (которая обрабатывается в этом примере) не рекомендуется.

оригинал функции.