VBAでファイルの有無を確認したいです。

Question

VBAでファイルの存在をチェックするVBAを作成しています。

シートのセルA1～A4にファイル名（1,2,3,4）を入力し、フォルダが存在すれば隣のB列に"有り"なければ"無し"と表示されるようにしたいです。

Do While <>""でファイル名すべてを抽出したものを、
If Replace(strFlname, ".", "") <> "" Then
でファイル名のみにし

for で4行分繰り返し、IFの条件式で"有り"と"無し"に分岐しています。

Sub ファイルチェック質問用()

Dim Path As String
Dim strFlname As String
Dim intA As Long

Path = ThisWorkbook.Path
strFlname = Path & "テスト" & "\"

Do While strFlname <> ""
  For intA = 1 To 4
   If Replace(strFlname, ".", "") <> "" Then
    
   'ここで比較
    If strFlname = Cells(intA, 1) Then
    Cells(intA, 2) = "有り"
    Else
    Cells(intA, 2) = "無い"
    End If

   End If
 Next
 
Loop

End Sub

この式を実行すると、すべて"無し"の表示となり、その後フリーズしてしまいます。

マクロの最後をLoopで終えると無限ループするのでしょうか。
そもそも上記の考えでは目的を達成するのは難しいでしょうか？

すべて"無し"の表示となる理由も知ることが出来ればうれしいです。

よろしくお願いします。

Comments

[tosi]

F8(デバッグ-ステップイン)で1行づつ実行して、strFlnameの値を見ると理由わかると思います。(デバッグ方法の確認)

[ttyp03]

ファイルとフォルダが混在しています。どっちなのか明確に記述してください。

[ice930]

F8(デバッグ-ステップイン)の機能について初めて知りました！
ありがとうございます！

Answer 1

フリーズではなく、無限ループでしょう。
タスクマネージャーで見ればCPUをずっと消費しているはずです。

Do While strFlname <> ""
...
Loop

の間でstrFlnameが""になることがないため、ループを抜け出せません。

Comments

[ice930]

原因が分かったことで、Exit forなどの使い方について学ぶきっかけになりました。
また、質問を上げて早くに回答いただきありがとうございました！

Answer 2

Dir関数の注意点

こんなことがやりたいのかな？

Sub test()
    Dim sPath As String
    Dim buf As String
    Dim sFlg As String
    Dim i As Long
    Dim c As Range
    
    sPath = ThisWorkbook.Path & "\テスト\"
    
    For Each c In Range("A1:A4")
        sFlg = "無し"
        buf = Dir(sPath)
        Do While Len(buf) > 0
            i = InStr(buf, ".")
            buf = Left(buf, i - 1)
            If c.Value = buf Then
                sFlg = "有り"
                Exit Do
            End If
            buf = Dir()
        Loop
        c.Offset(, 1).Value　= sFlg
    Next
End Sub

少し作業の流れがおかしいかも？
注目する点は一覧を順次見ていくのではなく、
「Dir関数で存在を確認する」
ということです。

Sub test2()
    Dim c As Range
    
    For Each c In Range("A1:A4")
        c.Offset(, 1).Value = IIf(Dir(ThisWorkbook.Path & "\テスト\" & c.Value & "*"), "有り", "無し")
    Next
End Sub

ステップインで実行し、
ローカルウィンドウで変数の中身が意図通りになっているか確認しながら、
デバッグしてみてください。

Comments

[ice930]

for each やLen　など、初めて見る物がおおく大変勉強になりました。
実際に作成してみて、大部分がmattuwanさんのコードと同じになりましたのでベストアンサーとさせていただきました。
助かりました！ありがとうございました。