A
AnnaS
Добрый день, проблема в следующем:
необходимо выгрузить из РК Лотуса файлы и открыть только файлы с определенным расширением. возможно ли это?
чтобы выгрузить файлы
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">прописала вот так:</div></div><div class="sp-body"><div class="sp-content">
Выгружает. А вот как открыть именно файлы с нужным расширением не знаю.нужно только запустить файл с этим расширением из моей папки \"На подпись\" на Раб.столе. Если кто-то может помочь, прошу откликнуться, ибо не являюсь программистом и создаю вторую неделю методом \"тыка\".
необходимо выгрузить из РК Лотуса файлы и открыть только файлы с определенным расширением. возможно ли это?
чтобы выгрузить файлы
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">прописала вот так:</div></div><div class="sp-body"><div class="sp-content">
Код:
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim att As NotesEmbeddedObject
Dim stream As NotesStream
Dim fileNum As Integer
Dim fileName As String
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
If Not doc.HasEmbedded Then Exit Sub
Set body = doc.GetFirstItem(\"Body\")
Set rtnav = body.CreateNavigator
Set stream = session.CreateStream
If rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Then
Do
Set att = rtnav.GetElement()
filepath$ = \"C:\\Users\\Desktop\\На подпись\\\" & att.Source
Call att.ExtractFile(filepath$)
Print filepath$ & \" extracted\"
Loop While rtnav.FindNextElement()
End If