Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim a As Array
        Dim b As Integer 'Zähler fürs auflisten der Dateien
        Dim dir As Directory
 
        b = 0
        ListBox1.Items.Clear()
        a = dir.GetFiles("d:\ftp\upload\programme\")
        While b < a.Length
            ListBox1.Items.Add(a(b))
            b += 1
            ansicht()
        End While
    End sub
 
Function ansicht()
        Dim dest As String
dest = ListBox1.SelectedIndex
        dest = dest.Substring(dest.LastIndexOf("\") + 1, dest.Length - _
          dest.LastIndexOf("\") - 1)
End Function