Sub SelectDatabaseFile(sTitle As String, sDir As String, sPath As String) As String
' Select a new database file (extension .db)
Dim lstFiles As List
Dim fileSelected As String = ""
Dim idSelected As Int
Dim sFile As String
lstFiles.Initialize ' Init the list and then use addall,
lstFiles.AddAll(File.ListFiles(sDir)) ' Ensures removeat working properly
If (lstFiles.Size > 0) Then
' Cleanup list resulting in listing only files with extension .db
For i = lstFiles.Size - 1 To 0 Step -1
sFile = lstFiles.Get(i)
If sFile.EndsWith(".db") = False Then lstFiles.RemoveAt(i)
Next
idSelected = InputList(lstFiles, sTitle, -1)
If idSelected <> DialogResponse.CANCEL Then fileSelected = lstFiles.Get(idSelected)
End If
Return fileSelected
End Sub