Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разархивирование вложенного файла с изменением имени / 10 сообщений из 10, страница 1 из 1
15.12.2015, 11:52
    #39128271
Dmitry_Zap
Dmitry_Zap
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Добрый день!

Подскажите, сохраняю архив в указанную папку с изменением имени, но вложенный файл всегда с новым именем, как мне разархивировать вложенный файл с постоянным названием:


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Sub LavtosaveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
WinRarApp$ = "C:\Program Files\WinRAR\WinRAR.exe e -o+"
iPath = "C:\inetpub\wwwroot\"
iArhivName$ = "Lavto.rar"
dateOfMailItem = Format(itm.CreationTime, "yyyy.mm.dd.hhnnss")
saveFolder = "C:\inetpub\wwwroot"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & "Price.rar"
adr$ = WinRarApp$ & " """ & iPath & iArhivName$ & """ """ & iPath & """ "
RetVal = Shell(adr$, vbHide)  'vbNormalFocus)
Set objAtt = Nothing
Next

End Sub



Модератор: Учимся использовать тэги оформления кода - FAQ


Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 12:20
    #39128322
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Переименовывать - либо после распаковки, либо до архивирования.
Ещё вариант - распаковывать в поток, который перенаправить в файл с нужным именем. Но не советую...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 12:42
    #39128363
Dmitry_Zap
Dmitry_Zap
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
До архивирования не возможно заархивировать с нужным именем, т.к. на почту приходит Прайс с именем где указана дата, мне нужно распаковать архив и задать постоянное имя вложенному файлу, для того, чтобы программа импортировала его. В случае если имя каждый раз разное, я не могу настроить программу на импорт вложенного файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 13:26
    #39128452
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Dmitry_Zapесли имя каждый раз разное, я не могу настроить программу на импорт вложенного файлаА в чём проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 13:48
    #39128504
Dmitry_Zap
Dmitry_Zap
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Проблема в том что для импорта в программу нужно использовать заранее указанное имя файла. Я настраиваю правило для OUTLOOK где будет приходить письмо с прайсом, оно автоматом распаковывается в указанную папку и программа в указанное время сама будет брать файл .xls и импортировать в программу. Но т.к. вложенный xls файл заархивирован каждый день с новым именем у меня есть необходимость при разархивировании файла указывать постоянное название файла. Например сегодня в архив упакован файл "Price_15.12.15.xls", завтра будет "Price_16.12.15.xls" но мне нужно чтобы при распаковке файл распаковывался с именем "Price.xls"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 17:55
    #39128927
Dmitry_Zap
Dmitry_Zap
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Так как же переименовать файл при распаковке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 18:02
    #39128936
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Dmitry_Zapпрограмма в указанное время сама будет брать файл .xls и импортировать в программу.Т.е. программа постоянно работает? дёргая таймер, и в "час икс" лезет в заданное место выгребать файл с предопределённым именем? или как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 18:08
    #39128952
Dmitry_Zap
Dmitry_Zap
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Программа лезет в определенную папку за определенным файлом с указанным именем.
Вот скрин из программы. Но внутри .rar каждый день приходит вложение с новым именем, мне нужно чтобы это вложение рапаковывалось с именем Indrive.xls
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 18:14
    #39128962
Dmitry_Zap
Dmitry_Zap
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
http://joxi.ru/bmokMlWTMNRZkm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2015, 18:23
    #39128983
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разархивирование вложенного файла с изменением имени
Dmitry_ZapПрограмма лезет в определенную папку за определенным файлом с указанным именем.Ты её запускаешь вручную? Её запускает шедулер? Она работает постоянно?
В первых двух случаях - запускай её скриптом, которая предварительно переименует файл. В третьем - переименуй файл планировщиком или макросом Outlook.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разархивирование вложенного файла с изменением имени / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 475ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155691]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 366ms
total:  475ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]