Show all the file within a folder

Sub showFiles()
fn = Dir("C:/update/" & "*.xls") ' the first file name in the folder

While Len(fn) > 0
MsgBox fn
fn = Dir ' the next file name in the folder
Wend
End Sub