Maximale Dateianhanggröße 2GB?

[Legolas]

Hallo Forum,

kann mir jemand definitv sagen, ob selbst in der Domino / Notes Version 14.5 mit Windows Server 2022 die max. Dateianhanggröße von 2 GB nicht überschritten werden darf um sauber damit arbeiten zu können?
Ich erhalten in meinen Testsystemen ab dieser Schwelle negative Werte in den Eigenschaften des $File Feldes und bei Verwendung der @AttachmentLengths Formel! Das deutet für mich auf einen Variablen Überlauf hin.

Da aber die Datei technisch verwendet werden kann. Die Datei ist ablegbar aus dem Notes Dokument, kann versendet werden in Notes usw. habe ich nun die Frage, ob es einen anderen Weg gibt die Dateigröße auslesen zu können?
Ich benötige die genaue Größe des Dateianhangs.

Grüße
Legonas

[Tode]

Das Problem liegt in einer internen Variable vom falschen Typ (nämlich Long). Das wirkt sich nicht auf die Funktionalität aus, nur darauf, wie die beschrieben Funktionen arbeiten. Es bleibt Dir wohl nichts, als ein Ticket bei HCL aufzumachen, ich fürchte aber, dass die Dir auch keine Lösung nennen können.

Wenn Du Dir die LotusScript-Definition von NotesEmbeddedObject.FileSize anschaust, dann siehst Du da: Das ist auch in LotusScript ein "Long":

size& = notesEmbeddedObject .FileSize

Long = 2.147.483.647, bedeutet max. 2GB messbar

[Legolas]

Hallo Thorsten,

danke für die Rückmeldung.
Aber... selbst wenn ich das so mache erhalte ich einen negativen Rückgabewert.
Hier der Code, um eine 2GB große Datei zu erstellen:  fsutil file createnew C:\Temp\Test2GB.dat 2147483648
Hier ist mein Code der in einem Agent läuft:

Code

	Dim ses As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim item As NotesItem
	Dim rt As NotesRichTextItem
	Dim emb As Variant
	Dim eo As NotesEmbeddedObject
	
	Set db = ses.CurrentDatabase
	Set dc = db.UnprocessedDocuments

	If dc.Count = 0 Then
		MessageBox "Kein Dokument ausgewählt!", , "Anhänge"
		Exit Sub
	End If

	Set doc = dc.GetFirstDocument

	ForAll i In doc.Items
		Set item = i
		If item.Type = RICHTEXT Then
			Set rt = item
			emb = rt.EmbeddedObjects
			If Not IsEmpty(emb) Then
				ForAll x In emb
					Set eo = x
					If eo.Type = EMBED_ATTACHMENT Then
						MsgBox eo.Source  & ": " & eo.FileSize
					End If
				End ForAll
			End If
		End If
	End ForAll
	
	MsgBox "Ende"

[Tode]

Ja, das ist ja genau das was ich sage: Alles auf Long beschränkt, bedeutet: Dateien > 2GB können nicht gezählt werden und führen zu einem Überlauf ins negative