German Datei importieren

Sub BtnDatei_2_LongClick 
    Log("Import Spielliste")
    '   
    Storage.SelectDir(False)
    Wait For Storage_ExternalFolderAvailable
    FoldersStack.Clear
    Enter_Folder(Storage.Root)
    '
End Sub


Private Sub Enter_Folder (folder As ExternalFile)
    FoldersStack.Add(folder)
    Dim sb As StringBuilder
    sb.Initialize
    For Each fl As ExternalFile In FoldersStack
        If fl = Storage.Root Then
            sb.Append("Root")
        Else
            sb.Append(" / ").Append(fl.Name)
        End If
    Next
    '   
    Dim destfile As ExternalFile = Storage.FindFile(Storage.Root,"Spielliste.txt") 'define destfile
    '
    Dim in As InputStream = Storage.OpenInputStream(destfile)
    Dim out As OutputStream  = File.OpenOutput(ListDir,"Spielliste.txt",False)
    '
    File.Copy2(in,out)                    'copy file
    out.Close                           'close Outputstream
    Log("Spielliste erfolgreich importiert")
    ToastMessageShow("Spielliste erfolgreich importiert", False)
    '
End Sub