Sub SMBC_ListCompleted (Url As String, Success As Boolean, Entries() As SMBFile)
Log(URL & "->" & Success)
ProgressDialogHide
If Success Then
lv.Clear
For i=0 To Entries.Length-1
Dim entry As SMBFile : entry = Entries(i)
[B]If entry.Directory Then[/B]
'lv.AddTwoLinesAndBitmap2(entry.Name, DateTime.Date(entry.LastModified) & " " & DateTime.Time(entry.LastModified), LoadBitmap(File.DirAssets, "ordner.png"), entry)
Else
'lv.AddTwoLinesAndBitmap2(entry.Name, entry.Size & " Bytes, " & DateTime.Date(entry.LastModified) & " " & DateTime.Time(entry.LastModified), LoadBitmap(File.DirAssets, "datei.png"), entry)
End If
Next
NewURL(Url)
Else
If Msgbox2("Das Anfordern einer Liste mit Dateien auf der Freigabe ist fehlgeschlagen. Möchten Sie zum vorherigen Ordner zurück navigieren?", "Fehler", "Ja", "", "Nein", Null) = DialogResponse.POSITIVE Then
ListF(settings.Get(global.Freigaben_KeyURL))
Else
StartActivity(Main)
Activity.Finish
End If
End If
End Sub