Domino 9 und frühere Versionen > ND6: Entwicklung

Anhänge überprüfen

<< < (3/3)

ata:
... du initialisierst das Dokument im Backend, dann das RichTextItem - schau mal in der Hilfe unter "NotesEmbeddedObject" - dort findest du im Beispielcode unter ExtractFile alles was du benötigst. Probier dich da mal dran aus...

Toni

Daniel87:
Danke für die Hilfestellung.

Gruß

Daniel

ata:
... ich habe den Code soeben getestet und festgestellt, daß er  - verständlicherweise - einen Leerstring zurückliefert, wenn die Datei seit ihrer Erstellung noch nie verändert wurde, daher habe ich die Funktion um das Erstellungsdatum erweitert:


--- Code: ---Function FileLastModified( sFile As String ) As String
   Dim fso As Variant
   Dim fsoFile As Variant
   Dim sLastModified As String
   '
   Set fso = CreateObject( "Scripting.FileSystemObject" )
   If fso.FileExists( sFile ) Then
      Set fsoFile = fso.GetFile( sFile )
      sLastModified = fsoFile.DateLastModified
      '
      If sLastModified = "" Then sLastModified = fsoFile.DateCreated
      '
      Set fsoFile = Nothing
      Set fso = Nothing
   Else
      sLastModified = ""
      Set fso = Nothing
   End If
   FileLastModified = sLastModified
End Function

--- Ende Code ---

Toni

it898ur:
Einfacher geht es mit @AttachmentModifiedTimes (ggf. mit Evaluate) - die alten Werte in der Maske merken und bei jedem Speichern vergleichen - jetzt kann man Änderungen an den Anhängen nachvollziehen.

Gruß

André

ata:
... die @-Funktion kannte ich noch nicht  ;D :o ;D - das erspart den Zugriff per LS und Windows-Objekten...

Toni

Navigation

[0] Themen-Index

[*] Vorherige Sete