diagog

Public sub seleccionaArchivo() as string
Dim fichero as string

Dialog.Title = "Elige archivo"
Dialog.Filter = ["*.txt;*.dat", "Fichero de Texto", "*", "Todos los archivos"]
Dialog.Path = user.home 'abre el directorio del usuario
IF Dialog.OpenFile() THEN
    RETURN “no ha seleccionado nada” ' el usuario apretó el botón de cancenlar
ELSE
    fichero=diaglo.path 'fichero: variable que le asignamos la ruta y el nombre del archivo seleccionado
    RETURN fichero
ENDIF

END