Abrir un Archivo en Gambas

Nuevamente yo por aquí tratando de escribir algo, estuve explorando como abrir archivos en Gambas usando un cuadro de dialogo, en este caso archivos de texto, en el programita que es muy sencillito, tenemos dos botones uno llamado abrir localmente y otro abrir externamente. Cuando le damos click al boton “localmente” entonces el contenido del archivo de texto se pegará al area de texto y si le damos al botón “externamente” entonces se usará el programa por defecto para abrir el archivo, en mi caso es el gedit.

Aquí está el método que hace todo esto que digo:

Public Sub abrir(local As Boolean)

  Dim cadena As String
  Dialog.Title = "Escoger archivo"
  Dialog.Filter = ["*.txt", "Todos los archivos de texto"]
  If Dialog.OpenFile() Then
     Return ' Proceso cancelado por el usuario
  Else
     If local Then
        'Almacenamos en la variable cadena el contenido del archivo de texto
        cadena = File.Load(Dialog.Path)
        txtArchivo.Text = cadena
     Else
        'Abrimos el archivo con el programa predeterminado
        Desktop.Open(Dialog.Path)
     Endif
  Endif

End

Como verán no es la gran cosa pero puede servir de ayuda y me sirve para no perder el ritmo y mantener actualizado el blog.

Descarga el código.

Saludos combativos.

Anuncios