Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


еще вариант с фильтром по регулярному выражению:
Код: Выделить весь код
#include <array.au3>

Dim $a
_GetFileList ($a, "C:\TEST", "(?i)\.TXT$")
_ArrayDisplay($a)

Func _GetFileList (ByRef $array, $root, $regExp = ".*")
    If IsArray($array)=0 Then Dim $array[1]=[0]
    Local $search = FileFindFirstFile($root &"\*"), $file
    While 1
        $file = $root & "\" & FileFindNextFile($search)
        If @error Then ExitLoop
        If StringInStr(FileGetAttrib($file), 'D') Then
            _GetFileList ($array, $file, $regExp)
        ElseIf StringRegExp($file, $regExp) Then
            $array[0]+=1
            ReDim $array[$array[0]+1]
            $array[$array[0]]=$file
        EndIf
    WEnd
EndFunc
Цитата Lodoss:
А как сделать последовательную обработку файлов из этого списка ? »
зависит от того, что понимается под "обрабокой"

Отправлено: 12:12, 09-04-2009 | #5