| Вопрос: Нумерация картинок | Добавлено: 23.05.06 04:38 |
Автор вопроса:  DaaGER | Web-сайт: smartic.ru | ICQ: 329195567 |
|
У меня есть около 300 фоток сделанных цифровиком, мне надо чтобы программа брала эти фотки (сортировка по дате) и копировала в отдельную папку присваивая новое имя. Например: фотка 11 декабря 2006 года и 12 декабря 2006 года. Запускаем прогу то, да сё... В указанной папке появляются две картинки 1.jpg и 2.jpg
1.jpg-11 декабря 2.jpg-12 декабря Помогите плиз, очень надо, а то нумеровать в ручную запарило! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  SRV ICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #1 | Добавлено: 23.05.06 10:13 |
|
Public FSO As New FileSystemObject
Public F As File Public TXT As TextStream Public TXTtext As Strin Public Sub CopyFiless()  im TimDat As String
Set F = FSO.GetFile(App.Path & "\картинка.jpg" 
TimDat = Mid(F.DateCreated,1,10) If TimDat = такая-то дата Then FSO.CopyFile App.Path & "\картинка.jpg", App.Path & "\Copy\картинка1.jpg" End if End Sub Типа так, только не забудт в референсах присоединить библиотеку Microsoft Scripting Runtime |
||
|
Номер ответа: 2 Автор ответа: DaaGER ICQ: 329195567 Вопросов: 52 Ответов: 67 |
Web-сайт: Профиль | | #2 | Добавлено: 24.05.06 01:08 |
| Немного не то! у картинок разые имена. И надо чтоб имена их копий были цифрами! я ж вроде всё понятно написал-хотя кто знает?! | ||
|
Номер ответа: 3 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #3 | Добавлено: 26.05.06 17:20 |
Так это пример просто, тебе только осталось нормально переименовывать файл и всё 
|
||
|
Номер ответа: 4 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #4 | Добавлено: 26.05.06 22:29 |
| Можно функцией Dir получить содержимое папки, отыскать все jpg-файлы и переименовать. А вообще - у самого цифровика должна быть опция, чтобы файл назывался по дате и времени. | ||
|
Номер ответа: 5 Автор ответа: Ven0m Вопросов: 3 Ответов: 2 |
Профиль | | #5 | Добавлено: 09.06.06 03:36 |
| А не проще бы зайти в Тотал командер, там есть очень прикольная фишка "груповое переименование"??? | ||
Страница: 1 |