Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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=dialog.path 'fichero: variable que le asignamos la ruta y el nombre del archivo seleccionado
- RETURN fichero
- ENDIF
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement