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

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s