VBAのDoLoopでファイルがあるかチェック

質問

• VBAのDoLoopを使用して、指定された命名規則に一致するファイルが存在するかチェックする方法を教えてください。
• 質問者はVBA超初心者であり、自身で記述したコードに問題があるようです。特定の命名規則に一致するファイルの存在をチェックするためのコードを提供してください。
• ファイル名の一部に基づいて他のファイルの存在を確認するVBAのコードを作成したいという要望です。コードは一部動作していますが、最も古い日付の1つのファイルしかチェックされないため、この問題を解決する方法を知りたいとのことです。

回答No.1

MarcoRossiItaly · ベストアンサー

Dir 関数は、同一パスで繰り返し呼び出す場合、引数を書かずに実行するわけですが、その際、最後に指定していたパスで呼び出されることになります。つまり引数なしとすると、テキストファイルと CSV ファイルのパスで交互に検索するというのは、できないということになりますね。

また、引数ありで繰り返し実行しても、続きのファイルはヒットせず、Dir はずっと最初のファイル名を返し続けるので、「一番古い日付の1個」のみといった動作になります。

下のコードでは、いったん全てのテキストファイルのファイル名を動的配列の中にためておいて、それが終わってから、対応する CSV を探し始めるという手順にしています。これで様子を見てください。

Sub Macro1()
　　Dim p As String, textFileName As String, csvFileName As String, a() As String, cnt1 As Long, cnt2 As Long, i As Long
　　p = "r:\test\????-20*.txt"
　　textFileName = Dir(p)
　　ReDim a(0) As String
　　a(0) = textFileName
　　Do While textFileName <> ""
　　　　cnt1 = cnt1 + 1
　　　　textFileName = Dir()
　　　　ReDim Preserve a(cnt1) As String
　　　　a(cnt1) = textFileName
　　Loop
　　For i = 0 To cnt1
　　　　If a(i) <> "" Then
　　　　　　csvFileName = Dir("r:\test\xxxx-" & Mid(a(i), 6, 8) & ".csv")
　　　　　　If csvFileName <> "" Then
　　　　　　　　MsgBox csvFileName & " が存在します"
　　　　　　　　cnt2 = cnt2 + 1
　　　　　　End If
　　　　End If
　　Next i
　　MsgBox cnt2 & " 個の CSV ファイルを検出しました"
End Sub

補足

早速のご回答、ありがとうございます。
dir()でloop中にdir関数を使用したときの振舞いの謎が氷解し、感謝いたします。
変数に全ファイル名を入れて比較というのは先週試行錯誤していたときに思いついたのですが、ファイル数が不定なのでどれだけの変数を用意すればいいのかわからずあきらめていました。
動的配列のことを知り、勉強になりました。
ところでご教示いただいた内容をVBにそのままコピーして実行したところ、「配列変数を宣言するために'ReDim'ステートメントを使用することはできません」というエラーになりました。
ReDimとエラーについて調べたところ、最初の「Dim a() As String」だけで、a(0)やa(1)などを改めて宣言しなおす必要はないようです。
「As String」の部分だけを削ったら正常に動作しました。
ExcelのVBAだと宣言する必要があるのでしょうか。週明けに職場で試してみます。