Sub failinimed()
  Dim failinimi, failinimed
  failinimi = Dir("c:\*.*")
  While Len(failinimi) > 0
    failinimed = failinimed & failinimi & vbCrLf
    failinimi = Dir
  Wend
  MsgBox failinimed
End Sub