Archivo fuente y unos pequeños cambios.

Gracias al aporte de un compañero del foro de gambas-es (AZTK) presento aquí el código fuente del visor mini agenda de contactos que hemos venido desarrollando.
Uno de los cambios es en el host, donde usamos User.home (nuestra carpeta de usuario) y la carpeta visor que si no exista será creada y la base copiada allí.

hconn.Host = User.Home &/ “.visor”

El siguiente fragmento va en el evento open de fmain

IF NOT Exist(User.Home &/ “.visor/mibase1”)
TRY MKDIR User.Home &/ “.visor”
COPY “base/mibase1” TO User.Home &/ “.visor/mibase1”
ENDIF

Primero comprueba si existe la base, si no es así crea el directorio en la carpeta de usuario y copia allí la base incluída en el código fuente.

Código fuente

Anuncios
Esta entrada fue publicada en programación y etiquetada . Guarda el enlace permanente.

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 )

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 )

Google+ photo

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

Conectando a %s