'''<summary>alle dateien sammeln, die sich unterhalb des anwendungsordners 
' befinden</summary>
    Private Sub GetFileInfos(ByVal Folder As String)
        Dim appfolder As String = My.Application.Info.DirectoryPath
        'alle dateien dieses ordners sammeln
        For Each f As String In Directory.GetFiles(Folder)
            Dim ff as string = f.Replace(appfolder,"")
        Next
        'alle unterverzeichnisse durchlaufen
        For Each d As String In Directory.GetDirectories(Folder)
            GetFileInfos(d)
        Next
    End Sub