' $System.Access Login ' If $System.IsPost ' $ID = $Command.Cabinet.FolderOpen ' $System.Redirect $Server?page=CabinetIndex&id=$ID ' Exit ' EndIf $Office.Name - Searching Document ' If $Text Search Results ' Else Search ' EndIf
Bullet Keyword
Bullet Search Criteria Document/Folder Name Created by Updated by Keyword Memo

' If $Text ' Set $r = $Cabinet.Collection.RowSet ' $r.SearchText = $Text ' For Each $i in $Item ' $v = $System.GetParameter $i ' If $v ' $r.SearchItems.Add $i ' EndIf ' Next

' $Count = 0 ' For Each $a in $r ' If $a.Type = Folder ' Else ' $t = $a.TimeStamp ' EndIf ' Inc $Count ' Next
Document/Folder Name Last Update
$a.Subject
$a.Subject ( $t.Day $t.MONTH, $t.Year )
' If ! $Count Can not find any Documents/Folders. ' EndIf

' EndIf
[Document List] [Top Page] [Help]