Llevo muchas horas consultando en el foro para intentar encontrar la solución, sin resultado positivo.
No sé cómo obtener que FileDialog seleccione los ficheros de la ruta indicada
De nuevo me veis dependiendo de vuestra ayuda (como el año pasado...). Gracias anticipadas.
Que tengáis un año 2019 lleno de todo lo bueno que os pueda interesar...
No sé cómo obtener que FileDialog seleccione los ficheros de la ruta indicada
B4X:
Sub FileOrig
Dim fd As FileDialog
Dim ruta As String
fd.FastScroll = True
ruta = File.Combine(File.DirRootExternal, "documents")
fd.FilePath=ruta
If Main.ntipo = 1 Then
fd.FileFilter=".txt,.doc,.docx,.pdf,.xls,.xlsx, "
Else
fd.FileFilter=".edf" ' Uso ESTE filtro
End If
' COMPROBACIÓN
If (File.Exists(ruta,"pasos-txt.edf")) Then
Msgbox("Existe pasos-txt.edf", "Vale") ' Se presenta ESTE mensaje
Else
Msgbox("No existe pasos-txt.edf", "No vale")
End If
Dim sf As Object = fd.ShowAsync("Selecciona el fichero de Origen", "Sí", "Cancelar", "No", Null, True)
Wait For (sf) Dialog_Result(Result As Int) ' NO PRESENTA NINGÚN FICHERO
If Result = DialogResponse.POSITIVE Then
ff=fd.FilePath & "/" & fd.ChosenName
End If
End Sub
Que tengáis un año 2019 lleno de todo lo bueno que os pueda interesar...
Last edited: