ユーザが選択したファイル名を取得する(3)
ユーザが選択したファイル名を取得する
前々回
前回
の続き。
ファイルフィルタを設定する
フォルダ選択と違って、ファイルには「種類」というものがあるので、いつもいつも「すべてのファイル」が表示されたのでは、ユーザとしてはたまらない。
そこで活躍するのがファイルフィルタである。
これ。
こいつをうまく設定してやれば、選ばせたい種類のファイルだけを表示することができるので、ユーザフレンドリーになる。
FileDialog.Filtersオブジェクトを使う
ファイルフィルタを設定するには、FileDialogFiltersオブジェクトを操作する。
FileDialogFiltersオブジェクトは、FileDialogオブジェクトのFiltersプロパティから取得する。
たとえば、変数fpDialogにFileDialogオブジェクトがぶち込まれているとして、
With fpDialog
Call .Filters.Add("FLACファイル", "*.flac")
Call .Show
End With
として実行すると、
こんなファイルダイアログが表示される。
ちゃんとファイルフィルタが設定されている。
FileDialogオブジェクトのFiltersプロパティがFileDialogFiltersオブジェクトを返し、そのAddメソッドを実行している。
Addメソッドの書式は、
[FileDialogFilters].Add(Description As String,Extention As String,[Position])
である。
ちなみに、複数の拡張子をつなぐときは、Addメソッドの第２引数（Extentions）に複数の拡張子を設定するときは、「"*.wav;*.flac;*.mp3;*.wma"」のように、「;」（セミコロン）で区切れば良い。
また、FileDialogオブジェクトでは、特に指定しなければ前回の設定が引き継がれる模様。
よって、Addメソッド実行前にClearメソッドを実行した方が良いかも知れない。
複数のファイルフィルタを設定したダイアログボックスを表示する
リスト１
Private Sub test04()
Dim fpDialog As FileDialog
Set fpDialog = Application.FileDialog(msoFileDialogFilePicker)
With fpDialog
.Title = "ち～んｗ"
.InitialFileName = "D:\Music\ACCEPT"
Call .Filters.Clear '……(1)'
Call .Filters.Add("ち～んｗ", "*.www", 1) '……(2)'
Call .Filters.Add("音楽ファイル", "*.flac;*.mp3", 2)
Call .Filters.Add("全てのファイル", "*.*", 3)
Call.Show
Call .Filters.Clear '……(3)'
End With
End Sub
まず、(1)の
Call fpDialog.Filters.Clear
で、一旦ファイルフィルタをクリア。
(2)からの３行
Call fpDialog.Filters.Add("ち～んｗ", "*.www", 1)
Call fpDialog.Filters.Add("音楽ファイル", "*.flac;*.mp3", 2)
Call fpDialog.Filters.Add("全てのファイル", "*.*", 3)
では、Addメソッドを３回使用してファイルフィルタを設定している。
操作が終わったら、(3)の
Call fpDialog.Filters.Clear
で、一応FileDialogFiltersオブジェクトをクリアしておく。
コイツを実行すると、ファイル選択ダイアログが表示され、
こんな風に動作する。（しまった、下の方、画面が切れとるやないか……。）
おわりに
ここまでで準備は完了。次回は、いよいよファイルパス取得について書く。
