Q&A
そのサイトも間違いがありますね。
> Dir関数で3文字の拡張子を指定した場合、その3文字「で始まる」拡張子が該当すると判断されます。
これは、(dir /x コマンドで表示される) 8.3名(ショートネームとも)で、そういう拡張子になっているケースだけです。
8.3名が付かないドライブでは発生しませんし、8.3名が付いている場合でも設定によっては3文字拡張子の生成ルールが変わるので発生しません。
とあるフォルダに類似したファイル名のエクセルファイルが二つ
① Funa_20200903.xls
② Funa_2020090307.xls
あります。
【やりたいこと】
VBAのDir関数を用いて、ファイル名を取得し、
それぞれのファイルを開けるような動作を出来るようにしたいと考えています。
【やってみたこと】
まず①のファイルを開くマクロを書きました。
Dir関数ではワイルドカードが使えるため、”？”をつかって桁数を分別しようと考え
VBA
1 Dim Funa As String 2 Funa = Dir(ThisWorkbook.Path & "Funa_????????.xls ", vbNormal) 'ファイル名を返す" 3 Workbooks.Open (ThisWorkbook.Path & "\" & Funa) 'Funa?20200903のエクセルを開く
というマクロを書き、回してみたところ、意図通り”Funa_20200903”のファイルを開くことができました。
続いて②のファイルを開くマクロを
VBA
1 Dim Funa As String 2 Funa = Dir(ThisWorkbook.Path & "Funa_??????????.xls ", vbNormal) 'ファイル名を返す" 3 Workbooks.Open (ThisWorkbook.Path & "\" & Funa) 'Funa?20200903のエクセルを開く
と書きました(ワールドカードに”?”を二つ追加しました)。
しかしながら、マクロを回してみたところ開かれたファイルは①でした。
【質問】
なぜ②のファイルを開くことができなかったのでしょうか。
また、②のファイルを開くためにはどの部分の記載を変更すべきなのでしょうか。
(そもそもDir関数は不適でしょうか？)
お手数おかけしますが、ご教授頂けますと幸いです。
状況について、勉強不足のため言葉足らずな部分ございましたらご指摘いただけますと幸いです。
よろしくお願いいたします。
回答3件
0
ベストアンサー
末尾または.の前に?があるとちょっと特殊な動作です。
"Funa_??????????.xls"と
"Funa_20200903.xls"を.で区切った単位でマッチさせるのですが、長さが足りないFuna_20200903の方は後ろに空白があるものとして長さを揃えてFuna_??????????とマッチさせ、このとき?は空白にマッチします。
なので、"Funa_20200903.xls"は"Funa_??????????.xls"にマッチします。
"Funa_.xls"でも"Funa_??????????.xls"にマッチします。
これはMS-DOSの時代にはファイル名は、拡張子と拡張子を除いた部分を「固定長後ろ空白詰め」で別々に管理しており、ワイルドカードのマッチもそれぞれの部分ごとに行っていたということとの互換性を保つためだと思いますが、そのため非常にわかりにくくなっています。
なお、その経緯から?は.にマッチしませんでしたが、これは現在も継続していますね。
MS-DOS時代は*も.にマッチしなかったと思います。こっちは今はマッチしますが。
ということで、dirでループを回してマッチするファイルを順次取得した上で、取得したファイル名を見て判断するということになります。
投稿2020/09/03 02:38
総合スコア86285
0
いっそFileSystemObjectを使用するというのも。
(というか何故敢えてDir()使うの？って感じですけども）
あまり知られていないDir関数の特徴
投稿2020/09/03 06:39
編集2020/09/03 06:42
総合スコア25430
@otn さん
フォローありがとうございます。
言いたいのは、「FileSystemObjectの推奨」だったので、細かい点は精査していませんでした。
それぞれの例があったのと、dir()には知られていない仕様があるというニュアンスが伝われば良いな程度で。
Dir()で参照しているディレクトリに新たにファイル追加したら、Dir()でそのファイルが取得されるのが、一番面倒に感じます。
その点、FileSystemObjectの方がINPUTが確定しているので。
sazi様
ご回答ありがとうございます。
私自身勉強不足でまだ引き出しが少ないため、Dir以外の方法に気づけていないというのが現状です。
FileSystemObjectという新しい方法があるようですので、そちらを勉強するところから始めたいと思います。ヒントを下さいましてありがとうございました。
> ?は0文字も含むので合致してしまいますね。（参考）
これは間違ってますね。それが本当なら、"abc"というファイル名にdir("ab?c")やdir("a??c")でマッチするはずですが、マッチしません。
確かに、間に?が入るとマッチしませんね。
後ろに置く分("abc?")には0文字でもマッチします。
仕様が謎ですが、今回に限っては後ろに置くパターンなのでマッチしてしまうことになります。
ttyp03様
迅速なご回答誠にありがとうございました。
”？”の位置によって、状況が大きく変わってくるということが理解できました。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/09/03 09:36