Batya
|
 Posted: Mon Feb 18, 2013 18:17 Post subject: |
 |
|
Petr_Ch
Не хочется приводить весь немного переделанный скрипт под твои частные задачи.
Итак, частями...
1. Объявляем ещё одну переменную j:
| Code: | Dim Path, Name, FullPath, SepPos, SepPosArr, IsFolder, BaseName, j |
2. После For Each F In Split(FSO.OpenTextFile(FileList).ReadAll, vbNewLine) пишем
3. Вместо | Code: | If Rank(Mode, 2) = 2 Then NameArr(r) = "out\" & BaseName |
пишем
| Code: | NameArr(r) = "out\" & Right(String(4, "0") & j, 4) |
Сам не тестировал, но должно быть всё ОК.
По-хорошему, можно ещё несколько строк проверок и улучшалок добавить, но ты, скорее всего, никогда и не попадёшь в проблемный вариант (например, количество файлов больше 9999).
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
