|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
13.05.2008, 16:59 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Переименовать файлы по списку!?
У меня такой вопрос:
В папке лежат файлы. В экселе есть список этих файлов. Название у этих файлов ровны их порядковым номерам. В экселе кроме порядковых номеров есть столбец с номером выпуска (1,2,3 или A,B,C). А теперь вопрос: Как можно переименовать все файлы в папке сразу так, чтобы получилась такая форма: порядковый номер@номер выпуска. например: 123546@1 Думаю получится полезная штучка для многих.
Jungo must die!!! (C) Bill Gates.
|
14.05.2008, 05:16 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Пусть в столбце "A" - имена файлов, в столбце "B" - то, что нужно добавить к имени соответствующих файлов.
1) Пропишите нужный путь к папке. 2) Имена файлов в столбце "A" должны содержать расширение. 3) Если нужно, вставьте проверку существования файла по заданному пути (в коде этого нет). Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 14.05.2008 в 06:18. |
14.05.2008, 10:35 | #3 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Цитата:
Макрос не работает, показывает ошибку. 1. Сами значения работают (подвел мышку - на Nname и на Oname показывает правильные значения). 2. Название файлов у меня н 100 % точны. 3. Можно MyPath выбрать в процессе макроса? Прикрепил рисунок.
Jungo must die!!! (C) Bill Gates.
|
|
14.05.2008, 13:56 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите другой вариант.
1) По совету дмидми, используется объект FileSystemObject 2) Добавлено окно выбора рабочей папки. ПОДКЛЮЧИТЕ в Tools -> References библиотеку Microsoft Scripting Runtime. Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 14.05.2008 в 14:08. Причина: Добавлено |
14.05.2008, 14:18 | #5 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Получилось!!!
SAS888 Огромное спасибо!!! Третий мой вопрос в силе.
Jungo must die!!! (C) Bill Gates.
|
14.05.2008, 16:22 | #6 | |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Возможный источник ошибок
Вспомним о нежно любимой клавише: nameF1
Цитата:
|
|
14.05.2008, 17:08 | #7 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
То же лень проверять.
Но не переименовывается.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
14.05.2008, 20:29 | #8 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Слазил в хэлп для FileSystemObject.
Для Name случай, когда файл с таким именем уже существует, не документирован. Стало быть, требуется предварительное удаление. Перемещение там отдельно, и при перемещении такой конфликт вызывает ошибку, которую при желании можно обработать. |
15.05.2008, 06:01 | #9 | ||
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
IgorGo. Ты не забыл подключить Microsoft Scripting Runtime?
дмидми. Я же оговорил, что Цитата:
Код:
Цитата:
Чем шире угол зрения, тем он тупее.
|
||
15.05.2008, 09:23 | #10 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Цитата:
Единственный вопрос, так, для себя: Окно для выбора папки открывается, но в нём не видно файлов лежащих в папке. Возможно ли сделать так, чтобы можно было видеть файлы (All Files). Пытаюсь предотвратить ошибки чайников (своих в том числе).
Jungo must die!!! (C) Bill Gates.
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно ли программно переименовать папку | Rusl92 | Общие вопросы Delphi | 3 | 13.09.2008 12:52 |
Под скажите как переименовать файл? | snaem | Общие вопросы .NET | 4 | 23.04.2008 23:15 |
INI файлы | aesoem | Общие вопросы Delphi | 3 | 24.12.2007 21:22 |
как переименовать | samosval | Общие вопросы .NET | 1 | 19.12.2007 21:40 |
два вредных вопроса:про асю и прикриплёные файлы файлы | steck | Свободное общение | 3 | 17.06.2007 14:53 |