CommonDialog

種別 ファイル
説明 ファイルの読込/保存ダイアログを表示し、結果を文字列として返します。

構文 CommonDialog(Sts, InitDir, FileName, Filter, FilterIndex)
引数 Sts : 1=ファイル読込、2=ファイル保存
InitDir : 初期表示するフォルダを設定 (指定不要)
FileName : 初期表示するファイル名を設定 (指定不要)
Filter : ファイルのフィルタを設定 (指定不要)
FilterIndex : ファイルのフィルタの初期設定値 (数値、未設定なら1)

※ VBAのCommonDialogと同様の仕様です。
戻り値 取得したファイルパス(取得できない場合は、""を返す)
使用例 Dim s
s = "DocuWorks(*.xdw;*.xbd)|*.xdw;*.xbd"
CommonDialog(1, #FILE_DIR# & "SubFolder", "aaa.xdw", s) '読込

s = "テキスト|*.txt;*.log|全ファイル|*.*"
CommonDialog(2, "c:\tmep", #FILE_NAME# & ".txt", s, 1) '保存

CommonDialog(1, , , "テキスト|*.txt") 'Sts以外は、指定不要
CommonDialog(2) 'Sts以外は、指定不要
実例  
備考 関連する関数(CopyFolder、CreateFolder、FolderExists、
CommonDialog、DeleteFolder、FileCopy、FileDelete、
FileRename、FileExists、FileInfo、FileDir、FileLock)