https://i.imgur.com/YrGY96b.png

上図のように、あるフォルダに.xlsmを置いて、そのサブフォルダ群の中に、「.xlsxファイルがあるか」「.pdfファイルがあるかどうか」をチェックするマクロを作っています。

チェックするところまでは出来たのですが、何故か同じところを２回も検索して、その結果が２重に出力されてしまいます。２重になる原因が分かりません。原因が分かる方、いらっしゃいますでしょうか？？


Sub OpenFilesInFolder()

    Dim path, fso, file, files, pfl, fl, UB, LC, FE1, FE2, Log

    path = ThisWorkbook.path
    Set fso = CreateObject("Scripting.FileSystemObject")
    

    Set pfl = fso.GetFolder(path)

    Dim s As String
    Dim t As String
    Dim u As String

    Dim TEMP As Object
    

   
    For Each fl In pfl.SubFolders
    s = fl.path
    sn = fso.GetFileName(s)
    
    UB = InStr(sn, "_")
    LC = Left(sn, UB - 1)

        errPath = ThisWorkbook.path & "\" & "ファイル存在error.txt"
                
        If Not fso.FileExists(errPath) Then
        fso.CreateTextFile (errPath)
        End If


        
        For Each TEMP In fso.GetFolder(s).files
        FE1 = Dir(s & "\*.xlsx")
        FE2 = Dir(s & "\*.pdf")

        
        If FE1 <> "" And FE2 <> "" Then
        
        End If

        If FE1 = "" And FE2 = "" Then
        
        MsgBox LC & "には何もファイルがありません"

        Set Log = fso.OpenTextFile(errPath, 8)
        Log.WriteLine Now & vbTab & LC & "には何もファイルがありません"
        Log.Close
        
        End If

        If FE1 = "" And FE2 <> "" Then
        
        MsgBox LC & "にはxlsxがありません"

        Set Log = fso.OpenTextFile(errPath, 8)
        Log.WriteLine Now & vbTab & LC & "にはxlsxがありません"
        Log.Close
        
        End If
        
        If FE1 <> "" And FE2 = "" Then
        
        MsgBox LC & "にはpdfがありません"

        Set Log = fso.OpenTextFile(errPath, 8)
        Log.WriteLine Now & vbTab & LC & "にはpdfがありません"
        Log.Close
        
        End If
        

        
        Next
    Next
    
    MsgBox "ファイルの精査が完了しました｡"

End Sub

Set Log = fso.OpenTextFile(errPath, 8)

引数8は追加書き込みモードでテキストファイルを
開きますので、すでに何か書き込まれていたら上書
きせずに追記します。

ここは大丈夫ですか？

OKさん

レスありがとうございます。そこのテキスト書き込み部分は意図的にそうしているもので、大丈夫です。

If FE1 = "" And FE2 <> "" Then
MsgBox LC & "にはxlsxがありません"

If FE1 <> "" And FE2 = "" Then
MsgBox LC & "にはpdfがありません"

が同じ対象に対して２回実行されてしまいます。

 For Each TEMP In fso.GetFolder(s).files

ここでｓフォルダの中の全ファイルに対して処理を行っています。
つまり、ファイルの数だけ
 FE1 = Dir(s & "\*.xlsx")
 FE2 = Dir(s & "\*.pdf")

を実行します。
二重どころか三重、四重以上出力される可能性があります。

   For Each TEMP In fso.GetFolder(s).files

このループ内では
TEMP
は利用されてませんね。

   For Each TEMP In fso.GetFolder(s).files

と、対になる
Next
を削除したらお望みの作業になると思います。

OKさん

レスありがとうございます。ご指摘の箇所のFor、Nextを削除したら、出来ました。
本当にありがとうございます。