German Export/Import von txt-Datei

[peternmb]

Hallo,

ich möchte dem Nutzer die Möglichkeit geben eine kleine txt-Datei mit Namen zum bearbeiten zu exportieren/importieren.
Den Export habe ich hinbekommen, nur wie mache ich das für den Import der Daten?

Sub BtnDaba_4_Click  'Export
    Storage.SelectDir(False)
    Wait For Storage_ExternalFolderAvailable
    FoldersStack.Clear
    EnterFolder(Storage.Root)
End Sub

Private Sub EnterFolder (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.CreateNewFile(Storage.Root,"Mitspieler.txt") 'define destfile
    Dim Out As OutputStream = Storage.OpenOutputStream(destfile)                 'create Outputstream
    Dim In As InputStream  = File.OpenInput(File.Combine(oListDir,"/"),"Mitspieler.txt") 'create Inputstream
    File.Copy2(In,Out)                                                             'copy file
    Out.Close                                                                    'close Outputstream
    '
    ToastMessageShow("Spieler-Datenbank wurde erfolgreich exportiert.", False)
    '
End Sub