German Dateien in Listview auflisten

[jmich]

Hi Leute,

möchte Dateien mit einer Extension z.B *.db in einer
Listview auflisten.

Mein jetziger Code

Dim file1 As String

Dim fileList As List
  Dim n As Int

  fileList = File.ListFiles(File.DirAssets)
  fileList.Sort(True)

  For n = 0 To fileList.Size-1
    file1 = fileList.Get(n)
      ListView1.AddSingleLine(file1)
  Next

Der Code funktioniert - Aber es werden natürlich alle
Dateien in der Liste gezeigt.

Wie kann ich nun Dateien nur mit der Extension *.db auflisten?
fileList = File.ListFiles(File.DirAssets, ".db") gibt eine Fehlermeldung!

Für eine Hilfe würde ich mich freuen - Danke

Gruß Jmich

 

[specci48]

Hallo jmich,

vor dem Hinzufügen zur ListView einfach vorher das Dateiende bzw. das Ende des Dateinamens prüfen:

For n = 0 To fileList.Size-1
    file1 = fileList.Get(n)
    If file1.EndsWith(".db") = True Then
        ListView1.AddSingleLine(file1)
    End If
Next

Gruß
specci48


P.S.: Bitte Deine Fragen nicht sofort doppelt stellen. Entweder direkt im englischen Teil ODER hier. Danke!

 

[jmich]

Danke für die schnelle Hilfe

Hi specci48,

vielen Dank für die Hilfe , es funktioniert prima!


Gruß Jmich