Zoeken in windows map+submappen n.a.v. cell-waarde

Option Explicit

Sub Find_DLD()
    Dim AckTime As Integer, InfoBox As Object
    Dim iRow As Integer         ' ROW COUNTER.
    Dim sSourcePath As String, currentpath As String
        Dim sDestinationPath As String
    Dim sFileType As String
    Dim sFileType1 As String
    
    Dim bContinue As Boolean
    
    bContinue = True
    iRow = 2
    
    ' THE SOURCE FOLDER WITH PATH.
    sSourcePath = "S:"
    sFileType = ".dld"  ' add begin cell-value
    sFileType1 = "prd. ' add end cell-value
  

    ' LOOP THROUGH COLUMN "B" TO PICK THE FILES.
    While bContinue
    
        If Len(Range("E" & CStr(iRow)).Value) = 0 Then    ' DO NOTHING IF THE COLUMN IS BLANK.
            Set InfoBox = CreateObject("WScript.Shell")
            AckTime = 1
            Select Case InfoBox.Popup("Klaar.", _
            AckTime, "Hieperdepiep", 0)
            Case 1, -1
            Exit Sub
            End Select
        Else
            ' CHECK IF FILES EXISTS.
            
            If Len(Dir(sSourcePath & sFileType1 & Range("E" & CStr(iRow)).Value & sFileType)) = 0 Then
                Range("F" & CStr(iRow)).Value = "Geen kantprogramma"
                Range("F" & CStr(iRow)).Font.Bold = True
            Else
                Range("F" & CStr(iRow)).Value = "Kantprogramma bestaat!"
                Range("F" & CStr(iRow)).Font.Bold = False
            
            End If
            End If
       iRow = iRow + 1      ' INCREMENT ROW COUNTER.
    Wend
End Sub

Sub M_snb()
   msgbox createobject("wscript.shell").exec("cmd /c Dir ""S:\prd.*.dld"" /b/s").stdout.readall
End Sub