Sub get_file_dialog (default_Path As String,default_name As String,file_extension As String , show_title As String) As List
Dim fd As FileDialog
Dim res As List
res.Initialize
fd.FastScroll = True
' fd.KeyboardPopUp=False
fd.ShowOnlyFolders =False
If file_extension.Length>0 Then
fd.FileFilter=file_extension
End If
If default_Path.Length>0 And default_name.Length>0 Then
fd.FilePath = default_Path
fd.ChosenName=default_name
Else
fd.FilePath = File.DirRootExternal
End If
ret = fd.show(show_title, "OK", "CANCEL", "", bmp)
If ret=-1 Then
res.add(fd.FilePath)
res.add(fd.ChosenName)
Else
res.add("")
res.add("")
End If
Return res
End Sub