Sub Sample1()
    Dim buf As String, cnt As Long
    Const Path As String = "C:\Users\ブログ\バックナンバー\"
    buf = Dir(Path & "*.*")
    Do While buf <> ""
        cnt = cnt + 1
        Cells(cnt, 1) = buf
        buf = Dir()
    Loop
End Sub