Imports System.IO
 
Public Class Form1
    Dim myText As String = ""
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        ListeText("Dateien im Ordner: " & Environment.GetFolderPath( _
          Environment.SpecialFolder.UserProfile))
 
        ' Dateipfad in Variable legen
        Dim DF As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.UserProfile)
 
        ' Objekt Di erstellen
        ' Macht Instanzmethoden zum Erstellen, Verschieben und Auflisten von 
        ' Verzeichnissen und Unterverzeichnissen verfügbar
        Dim Di As DirectoryInfo = New DirectoryInfo(DF)
 
        ' deklarieren Fi;  Initialisiert eine neue Instanz der FileInfo-Klasse
        Dim Fi As FileInfo
 
        For Each Fi In Di.GetFiles()
            ListeText(Fi.Name)
        Next
 
        Dim Path As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.DesktopDirectory)
        Dim sw As New StreamWriter(Path, True)
 
        For Each Fi In Di.GetFiles() ; HIER BLEIBT DAS PROGRAMM STEHEN!!!
            ListeText(Fi.Name) 
        Next