List = ""tmp = Dir("c:*.txt")List = tmp + vbCrLfDo While tmp <> "" tmp = Dir List = List + tmp + vbCrLfLoopMsgbox List