Добавлено: Вт фев 19, 2013 22:19
Продолжаем преобразования.Petr_Ch писал(а):А надо чтобы в каждом с 0001 начиналась.
Вместо j объявляем другую переменную:
Код: Выделить всё
Dim Path, Name, FullPath, SepPos, SepPosArr, IsFolder, BaseName, NUM
Set NUM = CreateObject("Scripting.Dictionary")
Вместо
Код: Выделить всё
NameArr(r) = "out" & Right(String(4, "0") & j, 4)Код: Выделить всё
If NUM.Exists(LCase(Path)) Then NUM((LCase(Path))) = NUM(LCase(Path)) + 1 Else NUM.Add LCase(Path), 1
NameArr(r) = "out" & Right(String(4, "0") & NUM((LCase(Path))), 4)