Присвоить названия поля в название вложения при сохранении на диск

Ренат

New member
26.05.2015
1
0
#1
Привет всем! нашел скрипт который сохраняет все вложения на диск, теперь пытаюсь присвоить названия поля в название вложения, не получается. вот код:

Код:
Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim rtitem As Variant
	Dim filename As String
	Dim collection As NotesDocumentCollection
	Dim form As NotesForm
	Dim queryString As String
 
	Set db = session.CurrentDatabase
	queryString = {Form = "RabDoc"}
	Set collection = db.Search(queryString, Nothing, 0)
	Set doc = collection.GetFirstDocument
 
	While Not doc Is Nothing
		Call session.UpdateProcessedDoc( doc )
		Set rtitem = doc.GetFirstItem( "Appends" )
		If (IsArray(rtitem.EmbeddedObjects)) Then
			ForAll obj In rtitem.EmbeddedObjectS
				If (obj.Type = EMBED_ATTACHMENT) Then
					filename = obj.Source
					Call obj.ExtractFile ( "C:\App\" & filename)
					Call doc.save(False, False)
				End If
			End ForAll
		End If
		Set doc = collection.GetNextDocument(doc)
	Wend
End Sub
 
Последнее редактирование модератором:

Shandrik

Lotus team
30.12.2010
269
12
#3
filename = rtitem.Name & "_"& obj.name
Call obj.ExtractFile ( "C:\App\" & doc.UniversalID & "\" & filename)
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 599
277
#4
/* пространно рассуждая...
а вот почему есть такая практика - хардкодить пути, и не бывает проверки на существование каталога
 

savl

Lotus team
28.10.2011
2 136
105
#5
@lmike, потому что подразумевается, что все уже будет.
А чаще всего: за создание папок отвечают другие люди...
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 599
277
#6
А чаще всего: за создание папок отвечают другие люди...
тем более - нечего делать этому в коде
[DOUBLEPOST=1432826337,1432826280][/DOUBLEPOST]я не к конкретному случаю, просто не раз натыкаюсь на подобное
[DOUBLEPOST=1432826432][/DOUBLEPOST]нужно временно - ф-ции временных папок и файлов
нужно постоянно - д.б. настройка (хоть из нотес.ини) но должна быть
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 599
277
#7
и вапще - для того что озвучено - просто выгрузка через SAX без перебора коллекции