<font colotr=green>' Verzeichnis, dessen Dateien ermitteln werden sollen</font>
With System.IO
  Dim sPath As String = "d:	emp"
  Dim oDir As New .DirectoryInfo(sPath)
 
  Dim oFiles As .FileInfo() = oDir.GetFiles()
  Dim oFile As .FileInfo
  For Each oFile In oFiles
    ListBox1.Items.Add(oFile.Name)
  Next
End With