SCLでファイル操作用のダイアログ画面を利用する

[質問]

SCL言語で、ファイル名を取得するためのファイル一覧を表示させるダイアログ、あるいは任意のフォルダ/ファイル名で保存するためのダイアログ画面を利用するにはどうしたらよいでしょうか。

[回答]

FILEDIALOG関数を使用することにより実現できます。

■ ファイル名取得用のファイル一覧ダイアログ作成

       rc=FILEDIALOG('OPEN',入力値用変数,' ','初期ディレクトリ','拡張子')

プログラム例：
下記の例は、「ファイルを開く」 ダイアログを表示して、選択されたファイルのファイル名を変数filenameにセットします（参照するディレクトリは "c:¥sales"、表示するファイルの拡張子を".xls" に設定する）。

   pbtn1:
     rc=FILEDIALOG('OPEN',filename,' ','c:\sales','*.xls');
     PUT filename=;
   return;

■ ファイル保存用のダイアログ作成

       rc=FILEDIALOG('SAVEAS',入力値用変数,' ','初期ディレクトリ','拡張子')

   pbtn2:
     rc=FILEDIALOG('SAVEAS',filename,' ','c:\sales','*.xls');
     PUT filename=;
   return;

[参考]

オンラインヘルプ キーワードに"FILEDIALOG"を入力して検索