Печать

[maximus_808 [?]]

Функции необходимо в виде параметров передать пути папок (может быть много).
Сама функция проверяет существуют ли эти каталоги и в случае если их нет - создает. Если не может создать, то сообщает об этом и выходит из скрипта.
У меня хватило фантазии только на написание функции для одной папки. Буду признателен за помощь, если кто подскажет как переделать эту функцию для обхода нескольких папок.

Вот код:

Код: AutoIt [Выделить]

Func CreateProgramDir ($Dir)
    If FileExists($Dir) Then
        Return(0)
    Else
        If Not DirCreate($Dir) Then
            MsgBox(0, "Ошибка","Не могу создать каталог " & $Dir & @CRLF & "Возможно у Вас нет прав на создание директории в каталоге программы...")
            Exit
        EndIf
    EndIf
EndFunc

[Medic84 [?]]

А что мешает вам использовать функцию несколько раз?

[Yashied [?]]

Или можешь передать в функцию массив.

[maximus_808 [?]]

А что мешает вам использовать функцию несколько раз?

Люблю красивый лаконичный код
Но если чесно, то я заранее не знаю сколько будет папок. И гораздо проще передать их все в виде параметров к функции чем вызывать функцию столько раз, сколько есть папок.
При этом на основе этой функции будет строится функция для проверки наличия файлов ... а там количество на порядок больше.

[maximus_808 [?]]

Или можешь передать в функцию массив.

Можно и массивом, если сначала получить список папок в родительской директории ...
Вот только как?

[maximus_808 [?]]

Или можешь передать в функцию массив.

Можно и массивом, если сначала получить список папок в родительской директории ...
Вот только как?

Нашел!))))

Код: AutoIt [Выделить]

#include <Array.au3>
 
$aFilesList = _FileListToArrayParse(@SystemDir & "\Config", "*", -1)
_ArrayDisplay($aFilesList)
 
Func _FileListToArrayParse($sPath, $sMask="*", $iMode=-1) ;$iMode > 0 только папки, иначе папки + файлы
    If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, 0)
 
    Local $PathesArr[2] = [1, $sPath]
    Local $hSearch, $sFindNext, $i
 
    While $i < $PathesArr[0]
        $i += 1
        $hSearch = FileFindFirstFile($PathesArr[$i] & "\" & $sMask)
        If $hSearch = -1 Then ContinueLoop
        While 1
            $sFindNext = FileFindNextFile($hSearch)
            If @error Then ExitLoop
            $sFindNext = $PathesArr[$i] & "\" & $sFindNext
            If $iMode <= 0 Or ($iMode = 1 And StringInStr(FileGetAttrib($sFindNext), "D")) Then
                $PathesArr[0] += 1
                ReDim $PathesArr[$PathesArr[0]+1]
                $PathesArr[$PathesArr[0]] = $sFindNext
            EndIf
        WEnd
        FileClose($hSearch)
    Wend
    Return $PathesArr
EndFunc

[Belfigor [?]]

А нельзя ли оверпост в виде 3-х подряд сообщений в промежутке в несколько минут объединить в одно?

[maximus_808 [?]]

А нельзя ли оверпост в виде 3-х подряд сообщений в промежутке в несколько минут объединить в одно?

Приму во внимание
*был бит лицом об кафель*

[maximus_808 [?]]

Кстати а у меня единственного так отображается страница?

Похоже CSS форума правили ... у меня в ГуглХром практически так же, только текст не выезжает на след пост, а только поле отображения кода становится шириной в весь листинг ... и рамочка ограничителя окна кода остается ... забавненько так))))
.....
хехе! Пока писал ответ, форум стал на свои скрипты ругаться при сохранении Вебмастера в студию!)))

[Yashied [?]]

Нашел!))))

maximus_808, а как эта функция связана с твоей темой?

[maximus_808 [?]]

Нашел!))))

maximus_808, а как эта функция связана с твоей темой?

Как заметил Yashied можно передать папки в первоначальную функцию CreateProgramDir в виде массива. Вот и начал размышлять на тему массивов и папок...
Эта функция (_FileListToArrayParse) возвращает массив имен файлов и/или папок, в зависимости от параметров, плюс файлы еще и по маске можно задать.
Сейчас как раз дорабатываю ее чтобы она возвращала только файлы (добавлением еще одного параметра в функцию _FileListToArrayParse) и будет как раз универсальный вариант, так как в массив попадают и файлы и папки.
Хотя, если честно, то первоначальную задачу это не решает  так как папки я получаю из ini-файла...

[CreatoR [?]]

OffTopic

maximus_808 « Ответ #8, Отправлен: Сентябрь 08, 2009, 15:15:15 »

Вебмастера в студию!

Нет такового, есть желание им стать?

[maximus_808 [?]]

OffTopic

maximus_808 « Ответ #8, Отправлен: Сентябрь 08, 2009, 15:15:15 »

Вебмастера в студию!

Нет такового, есть желание им стать?

К сожалению свободного времени нет 

• ivsatel
• Viktor1703
• Whited
• SemEMP
• Dk
• trizorka
• den23rus
• friend1981
• defens
• vollod
• Rubbertls
• teges
• Belfigor
• gora
• mkmkmkmk
• firex
• takse
• *Zodiac*
• ORiON