Перебор параметров, передаваемых функции

[maximus_808]

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

Вот код:

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]

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

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

Нашел!))))

#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 »

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

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

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