German Datei importieren

[peternmb]

Hallo,
ich schaffe es einfach nicht, eine Datei in meine App zu importieren.
Wenn mir der Dateiname bekannt ist (im Beispielcode "Spielliste.txt") funktioniert es, nur wie kann ich die Datei vom User auswählen lassen?

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

 

[b4x-de]

Vielleicht findest du Hilfe in diesem Beispiel:
Thread '[B4X] TextEditor - Save and load external files'

[B4X] TextEditor - Save and load external files

This is a B4i and B4A example, which demonstrates various external files related tasks. The behavior is not exactly the same as the platforms capabilities and behavior are different. B4A Load external files, including online files, using ContentChooser. Save to an external target, using...

www.b4x.com