|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.01.2010, 07:22 | #1 |
Регистрация: 20.01.2010
Сообщений: 9
|
Перенос файла из одной папки в другую
У меня есть программа, она формирует файлы и сохраняет их в опред папке, файлы формируются каждый день. Как можно написать макрос (или дописать мой) который бы проверял дату создания файлов в этой папке и если с момента создания прошла например неделя, то переносил их в другую папку (что то типо архива)?
|
29.01.2010, 11:42 | #2 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Вот код:
Код:
Код можно поместить в модуль и запускать по необходимости, а можно поместить в модуль ЭтаКнига и запускать при собитии открыттия книги Sub Workbook_Open() Последний раз редактировалось Maxx; 29.01.2010 в 11:47. |
29.01.2010, 14:17 | #3 |
Регистрация: 20.01.2010
Сообщений: 9
|
Дело в том что если этот файл будет лежать там же где и мои, то программа при запуске, через неделю тоже отправляет его в архив)Может можно как то место прописать?
|
29.01.2010, 14:57 | #4 |
Пользователь
Регистрация: 12.07.2009
Сообщений: 17
|
в коде выше:
Код:
|
29.01.2010, 15:29 | #5 | |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Цитата:
Но в любом случае вылезла бы ошибка, так как открытый файл не переместился бы. |
|
29.01.2010, 15:34 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Перемещать файл можно и без использования CreateObject("Scripting.FileSystemO bject").
Достаточно будет встроенных средств VBA: Код:
|
29.01.2010, 16:28 | #7 | |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Цитата:
Сорри за флуд! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенос настроек с одной Дельфы в другую. | Alex Cones | Общие вопросы Delphi | 4 | 01.01.2010 14:35 |
перенос столбцов из одной закладки в другую | wildvad | Microsoft Office Excel | 19 | 22.05.2009 11:35 |
скопировать все содержимое папки в другую | DannyKing | Помощь студентам | 6 | 27.03.2009 09:50 |
Передача данных из одной таблицы в другую, при выборе одной ячейки | MickMick | Microsoft Office Excel | 6 | 06.10.2008 13:57 |
Перенос данных из одной книги со многих листов в другую | gavrylyuk | Microsoft Office Excel | 34 | 20.07.2008 21:39 |