種別 | ファイル |
---|---|
説明 | ファイルの読込/保存ダイアログを表示し、結果を文字列として返します。 |
構文 | 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、 FileNumbering、FileExists、FileInfo、FileDir、FileLock) |