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
Siehe auch
Compact method
Glossar
Ihre Kommentare zur
Hilfe
oder zur
Verwendbarkeit der Software
?
Hilfe zur Hilfe
Inhalt der gesamten Hilfe
Glossar