エクスプローラ
ファイルとフォルダを表示します。
エクスプローラ・コンポーネントを使用して、ローカル・ハードディスクやネットワーク上のファイルやディレクトリを表示させます。
エクスプローラ・コンポーネントのイベントはファイル名、パス、そしてパス・タイプをパラメータとして引き渡します。 次のソース例では、エクスプローラ・コンポーネントで項目がフォーカスを受けた時に、上記の情報をLANSAフィールドに割り当てます。
Evtroutine Handling(#ExplorerLeft.ItemGotFocus #ExplorerRight.ItemGotFocus) Path(#Path) Pathtype(#Type) Name(#File)
#FileName := #File
#PathName := #Path
#PathType := #Type
Endroutine
2つのエクスプローラ・コンポーネント、つまり1つはディレクトリとパスの表示用にそしてもう1つはその中のファイルを表示用に（Windowsエクスプローラーと同様に）使用するには、最初のエクスプローラ・コンポーネントのNotifyComponentプロパティを使ってこの2つのコンポーネント間の通信を導入します。
エクスプローラの使用方法の例については、SET例44を参照するか、以下のコードをコピーしてフォームに貼り付けます。（上記のイベント・ルーチン・ハンドラーも含めてください）
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('Explorer Sample Application') Clientheight(432) Clientwidth(767) Height(470) Left(132) Top(212) Width(783)
Define_Com Class(#PRIM_DCBX) Name(#ExplorerLeft) Displayposition(1) Fileincludemask('"*.*"') Filename('Desktop') Height(329) Left(8) Notifycomponent(#ExplorerRight) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(24) Width(345)
Define_Com Class(#PRIM_DCBX) Name(#ExplorerRight) Displayposition(2) Displaystyle(GeneralListView) Fileincludemask('"*.*"') Filename('Desktop') Height(329) Left(360) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(24) Width(393)
Define_Com Class(#PRIM_LABL) Name(#LABL_2) Caption('Explorer 1') Displayposition(3) Height(17) Left(8) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(8) Width(98)
Define_Com Class(#PRIM_LABL) Name(#LABL_3) Caption('Explorer 2') Displayposition(4) Height(17) Left(360) Parent(#COM_OWNER) Tabposition(4) Tabstop(False) Top(8) Width(98)
Define_Com Class(#STD_QSEL.Visual) Name(#FileName) Caption('Filename') Displayposition(5) Height(20) Labeltype(Caption) Left(8) Marginleft(120) Parent(#COM_OWNER) Tabposition(5) Top(408) Usepicklist(False) Width(500)
Define_Com Class(#STD_QSEL.Visual) Name(#PathName) Caption('Path') Displayposition(6) Height(20) Labeltype(Caption) Left(8) Marginleft(120) Parent(#COM_OWNER) Tabposition(6) Top(384) Usepicklist(False) Width(500)
Define_Com Class(#STD_QSEL.Visual) Name(#PathType) Caption('Path type') Displayposition(7) Height(20) Labeltype(Caption) Left(8) Marginleft(120) Parent(#COM_OWNER) Tabposition(7) Top(360) Usepicklist(False) Width(500)
Evtroutine Handling(#ExplorerLeft.ItemGotFocus #ExplorerRight.ItemGotFocus) Path(#Path) Pathtype(#Type) Name(#File)
#FileName := #File
#PathName := #Path
#PathType := #Type
Endroutine
End_Com