' $System.Access Login ' If $System.IsPost ' $ID = $Command.Cabinet.FolderOpen ' $System.Redirect $Server?page=CabinetIndex&id=$ID ' Exit ' EndIf $Office.Name - Cabinet ' Set $Root = $Cabinet.Root ' If ! $ID ' $ID = $Root.ID ' EndIf ' Set $Folder = $Cabinet.Collection.$ID
' If $Root ' EndIf
All Folders[Search]
' If ! $Root or ($Root.ID = $ID) ' Else ' EndIf ' For Each $f in $Root ' Else $f.Subject ' EndIf ' Next
(Root Folder)Left Arrow
(Root Folder)
' For $i = 2 to $f.Rank ' Next ' If ! $f.Folders.Count ' Elif $f.IsOpen ' Else ' EndIf ' If $f.ID = $ID $f.SubjectLeft Arrow
 [Add a Folder] [Add a Document]
' If $Folder and ($Folder.ID != $Root.ID) Open Folder : $Folder.Subject ' Else Open Folder : (Root Folder) ' EndIf ' If $Folder [Settings] ' If ! $Folder.Folders.Count and ! $Folder.Documents.Count and ($Folder.ID != $Cabinet.Root.ID) [Delete] ' EndIf ' EndIf
' For Each $f in $Folder.Folders ' Next ' For Each $d in $Folder.Documents ' $t = $d.TimeStamp ' Next
$f.Subject
$d.Subject( $t.Day $t.MONTH, $t.Year - Last Updated )
' If ! $Folder.Documents.Count No Document found. ' EndIf

[Top Page] [Top Page] [Settings] [Help]