\\
\[フォルダを開く\] ダイアログを使用して、エンドユーザーがフォルダを選択できるようにします。

\\
\[フォルダを開く\] ダイアログを使用する。
\\
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Theme(#SYS_THEME<2015Blue>) Clientwidth(551) Clientheight(301) Left(165) Top(204) Width(567)
 \\
   Define_Com Class(#PRIM_PHBN) Name(#Pick) Caption('Pick a Folder') Displayposition(1) Left(16) Parent(#COM_OWNER) Tabposition(1) Top(16) Width(129)
 \\
   Evtroutine Handling(#Pick.Click)
 \\
      #Com_owner.PickaFile
 \\
 Endroutine
 \\
   Mthroutine Name(PickaFile)
 \\
      Define_Com Class(#Prim_appl.ICommonDialogFolderBrowse) Name(#FileOpen) Reference(*Dynamic)
 \\
      #FileOpen <= #sys_appln.CreateFolderBrowseDialog
 \\
      If (#FileOpen.Show)
 \\
         #Com_owner.Caption := #FileOpen.Folder
 \\
 Endif
 \\
 Endroutine
 \\
 End_Com