Office TANAKA - Excel VBA Tips[Dir関数でサブフォルダを取得する]複数の属性を指定するときは、定数を合計します。たとえば「読み取り専用」の「隠し属性」ファイルを調べたいのなら、 Sub Sample2() Dim buf As String, msg As String buf = Dir("tanaka*.*", vbReadOnly + vbHidden) Do While buf <> "" msg = msg & buf & vbCrLf buf = Dir() Loop MsgBox msg End Sub とします。しかし、この引数は実に使いにくいです。たとえば今、フォルダに次のファイルが保存されていたとしましょう。 Book1.xls … 標準ファイル Book2.xls … 読み取り専用ファイル Book3.xls … 隠しファイル このとき、上のSample2を実行すると次のような結果になります。 vbReadOnly + vbHidd
