LOTUSSCRIPT/COM/OLE CLASSES
Examples: Compact method
1. This script compacts WHITESPC.NSF if less than 85% of its disk space is occupied by real data.
Dim db As New NotesDatabase( "", "whitespc.nsf" )
If ( db.PercentUsed < 85 ) Then
Call db.Compact
End If
2. This script compacts TOOBIG.NSF if less than 90% of its disk space is occupied by real data. It displays a message indicating the number of bytes that have been freed.
Dim db As New NotesDatabase( "", "toobig.nsf" )
Dim delta As Long
If ( db.PercentUsed < 90 ) Then
delta = db.Compact
Messagebox( "You've freed " & delta & " bytes" )
End If
Véase también
Compact method
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa