Private Sub FoldSubMore(lfold, nfold, ldir)
Dim fso 'секция копирования в папку нового тиража
Dim objFl, objSf, sF
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set objFl = fso1.GetFolder(lfold)
Set objSf = objFl.SubFolders
For Each sF In objSf
... [SIZE="2"]тут я конструирую название вложенной папки для следующей директории,
используя переданные параметры (наибольший номер директории,
полный путь до этой последней директории и путь для директории со след. номером)[/SIZE]
fso1.CreateFolder (CurPth3) 'создали это папку
[COLOR="DarkRed"] Call FoldSubMore(sF.Path)[/COLOR]
Next
End Sub
Можно ли рекурсивно вызвать процедуру, у которй больше одного параметра?
Такой вопрос. Я пытаюсь написать процедуру, в которую принимаю 3 параметра от вызывающей процедуры.
Вот на цветной жирной строке оно ругается, т.к. число параметров не соответствует записанному в начале.
Что можно придумать?
Код:
Вот на цветной жирной строке оно ругается, т.к. число параметров не соответствует записанному в начале.
Что можно придумать?
Dmitry2064, а что мешает добавить нужное количество параметров в вызов процедуры?
Цитата: Dmitrii
Dmitry2064, а что мешает добавить нужное количество параметров в вызов процедуры?
Точно! Просто я сначала подумал, что они уже будут не нужны и испортят процедуру, а оказалось, что нужны. Поэтому указал их все и стало все нормально.
Спасибо.