ファイル名を取得する

Sub ファイル名取得()
Dim tmp
i = 5
tmp = Dir("*.xls")
Do While tmp <> ""
Cells(i, 1) = tmp
Cells(i, 2) = FileLen(Cells(i, 1))
Cells(i, 3) = FileDateTime(Cells(i, 1)) ' ﾌｧｲﾙスタンプを取得する。
i = i + 1
tmp = Dir()
Loop
End Sub