Как переименовать файлы используя Access

@Ensata · Регистрация: 20.12.2011

Author24 — интернет-сервис помощи студентам

Имеется созданная мною давно база данных, которая в целом устраивает. Но вот встала задача, к которой не знаю, как подступится, может, кто подскажет?
Есть БД с следующими (причастными к делу) полями: [Code] (идентификатор, числовой), [Name] (текстовый) Для создания отчетов используются множество файлов (фото), которые лежат в отдельной папке, например, D:\BD и имеют имя Code.jpg (где Code= полю [Code] в текстовом виде). Как написать процедуру или макрос (в запросе или отчете???), с целью переименовать файлы из папки D:\BD так, чтобы они стали с именем Name.jpg (желательно, чтобы они попали и в другую папку, например? D:\Image).

Резюмируя: нужно переименовать файлы Code.jpg в Name.jpg, где Code и Name – поля из БД.
Заранее благодарен за любую помощь.

@minob · 27.12.2011, 18:27

Пробуйте так (не проверял)

Visual Basic

Dim fn$
  With CurrentDb.OpenRecordset("Имя_таблицы", dbOpenSnapshot)
    Do Until .EOF
      fn = "D:\BD\" & !Code & ".jpg"
      If Len(Dir(fn, vbNormal)) > 0 Then
        Name fn As "D:\Image\" & !Name & ".jpg"
      End If
      .MoveNext
    Loop
  End With

@Ensata · 29.12.2011, 11:18 **[ТС]**

Спасибо, minob!
Попробовал использовать Ваше предложение. Все работает безукоризненно, это именно то, что мне надо. Главное -как просто!

Еще раз приношу свою признательность!

@Ensata · 10.01.2012, 12:39 **[ТС]**

Уважаемый minob! Поработав в праздничные дни с БД с Вашей добавкой понял, что достаточно часто приходится снова перименовывать те же файлы (по разным причинам), а в исходной папке после D:\BD\ их уже нет, естественно. Файлов очень много, разобраться, какие уже переименованы...
Вопрос: можно ли доработать процедуру так, чтобы исходные файлы в исходной папке оставались без изменений (не получали новое имя), а накапливались в конечной папке (D:\Image\) с новым именем?
Прошу извинить за беспокойство.

@minob · 10.01.2012, 13:49

Сообщение от Ensata

Вопрос: можно ли доработать процедуру так, чтобы исходные файлы в исходной папке оставались без изменений (не получали новое имя), а накапливались в конечной папке (D:\Image\) с новым именем?

Замените в коде строку
Name fn As "D:\Image\" & !Name & ".jpg"
на
FileCopy fn, "D:\Image\" & !Name & ".jpg"

@Ensata · 11.01.2012, 11:18 **[ТС]**

Спасибо большое inob! Все работает. Мне стыдно... Я сам пытался решить эту задачу, искал функцию типа "Copy", но ничего подходящего не нашел, а на FileCopy не обратил внимания. Только знакомлюсь с VB.

@Ensata 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 4
		1
	Как переименовать файлы используя Access 27.12.2011, 17:24. Показов 6321. Ответов 5 Метки нет (Все метки) Имеется созданная мною давно база данных, которая в целом устраивает. Но вот встала задача, к которой не знаю, как подступится, может, кто подскажет? Есть БД с следующими (причастными к делу) полями: [Code] (идентификатор, числовой), [Name] (текстовый) Для создания отчетов используются множество файлов (фото), которые лежат в отдельной папке, например, D:\BD и имеют имя Code.jpg (где Code= полю [Code] в текстовом виде). Как написать процедуру или макрос (в запросе или отчете???), с целью переименовать файлы из папки D:\BD так, чтобы они стали с именем Name.jpg (желательно, чтобы они попали и в другую папку, например? D:\Image). Резюмируя: нужно переименовать файлы Code.jpg в Name.jpg, где Code и Name – поля из БД. Заранее благодарен за любую помощь. 0

@Ensata 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 4
	29.12.2011, 11:18 [ТС]	3
	Спасибо, minob! Попробовал использовать Ваше предложение. Все работает безукоризненно, это именно то, что мне надо. Главное -как просто! Еще раз приношу свою признательность! 0

@Ensata 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 4
	10.01.2012, 12:39 [ТС]	4
	Уважаемый minob! Поработав в праздничные дни с БД с Вашей добавкой понял, что достаточно часто приходится снова перименовывать те же файлы (по разным причинам), а в исходной папке после D:\BD\ их уже нет, естественно. Файлов очень много, разобраться, какие уже переименованы... Вопрос: можно ли доработать процедуру так, чтобы исходные файлы в исходной папке оставались без изменений (не получали новое имя), а накапливались в конечной папке (D:\Image\) с новым именем? Прошу извинить за беспокойство. 0

@minob 3544 / 1118 / 94 Регистрация: 13.03.2011 Сообщений: 1,513
	10.01.2012, 13:49	5
	Сообщение от Ensata Вопрос: можно ли доработать процедуру так, чтобы исходные файлы в исходной папке оставались без изменений (не получали новое имя), а накапливались в конечной папке (D:\Image\) с новым именем? Замените в коде строку Name fn As "D:\Image\" & !Name & ".jpg" на FileCopy fn, "D:\Image\" & !Name & ".jpg" 0

@Ensata 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 4
	11.01.2012, 11:18 [ТС]	6
	Спасибо большое inob! Все работает. Мне стыдно... Я сам пытался решить эту задачу, искал функцию типа "Copy", но ничего подходящего не нашел, а на FileCopy не обратил внимания. Только знакомлюсь с VB. 0