Dim cnt As Long Sub Sample3(Path As String) Dim buf As String, f As Object buf = Dir(Path & "\*.xls") Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = Path & "\" & buf buf = Dir() Loop With CreateObject("Scripting.FileSystemObject") For Ea…