Batya
|
 Posted: Tue Feb 19, 2013 22:19 Post subject: |
 |
|
| Petr_Ch wrote: | | А надо чтобы в каждом с 0001 начиналась. |
Продолжаем преобразования.
Вместо j объявляем другую переменную:
| Code: | Dim Path, Name, FullPath, SepPos, SepPosArr, IsFolder, BaseName, NUM
Set NUM = CreateObject("Scripting.Dictionary")
|
Строку "j = j + 1" убираем.
Вместо
| Code: | NameArr(r) = "out\" & Right(String(4, "0") & j, 4) |
пишем | Code: | 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) |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
