Ls: Illegal Redim

[ToxaRat]

Class c_MasFiles
Public Count As Integer
Public Rec() As c_RecFiles

Sub Add2Class(sName As String, sPath As String, sSub As String, bFile As Boolean) ' Добавить в класс файл или директорию
Dim i As Integer
me.Count = me.Count + 1
i = me.Count 
ReDim Preserve me.Rec(i)
Set Me.Rec(i) = New c_RecFiles
Me.Rec(i).NameFile = sName
Me.Rec(i).Path = sPath
Me.Rec(i).sSubdir = sSub
Me.Rec(i).FullPath = sPath & sSub & sName
Me.Rec(i).isFile = bFile
End Sub

ReDim Preserve me.Rec(i)
тут ошибка, причем на срабатывании в 6й раз....я в глубокой непонятке
это не фиксированный массив

 

[lmike]

0-ой элемент злонамеренно пропускается?

 

[savl]

Try:

ReDim Preserve me.Rec(i) as c_RecFiles

PS. I use LIST

Добавлено: О переключилась.
Может действительно тип меняется, но странно почему на 6-ой раз.
И может действительно использовать список раз 0-й элемент пустует.

 

[ToxaRat]

0-ой элемент злонамеренно пропускается?

Sub New(sPath As String) ' Создание класса
me.Count = -1
Call me.ScanFiles(sPath, "") ' Сканирование папок
End Sub

поверь, ни разу не пропускают ноль, всегда начинаю с -1

 

[lmike]

вот нафига эти танцы с Count...
есть Ubound
нужен подсчет - Property Get Count As Long:Ubound(me.Rec)+1

 

[ToxaRat]

вот нафига эти танцы с Count...
есть Ubound
нужен подсчет - Property Get Count As Long:Ubound(me.Rec)+1

то есть вместо чёткой и быстрой переменной ты предлагаешь каждый раз запускать тяжелую функцию которая считает размер?

 

[lmike]

то есть вместо чёткой и быстрой переменной ты предлагаешь каждый раз запускать тяжелую функцию которая считает размер?

т.е. ты проводил замеры и готов поделится ими?

Добавлено: вот даже представить не могу - зачем мне Count

 

[ToxaRat]

Public Rec() As c_RecFiles
заменил на
Public Rec() As Variant

и всё проканало, первый раз с таким сталкиваюсь...

 

[lmike]

Public Rec() As c_RecFiles
заменил на
Public Rec() As Variant

и всё проканало, первый раз с таким сталкиваюсь...

я тебе больше скажу - списки (с классами) и массивы классов "проще" указывать как Variant иначе и в итераторах (типа forall) можно наткнуться на type mismatch

 

[ToxaRat]

т.е. ты проводил замеры и готов поделится ими?

Добавлено: вот даже представить не могу - зачем мне Count

ты эта....иди индусам обьясни, на кой они в Col.Count используют видать совсем оборзели

Добавлено:

я тебе больше скажу - списки (с классами) и массивы классов "проще" указывать как Variant иначе и в итераторах (типа forall) можно наткнуться на type mismatch

В моей 15ти летней работы с лотусом - это произошло впервые
в данном контексте есть подозрение, что это из-за работы с функцией Dir() и её псевдо рекурсией...