List
=
""
tmp = Dir ( " c:*.txt " )
List = tmp + vbCrLf
Do While tmp <> ""
tmp = Dir
List = List + tmp + vbCrLf
Loop
Msgbox List
tmp = Dir ( " c:*.txt " )
List = tmp + vbCrLf
Do While tmp <> ""
tmp = Dir
List = List + tmp + vbCrLf
Loop
Msgbox List