|
|
Publicado:
03/10/2011 0:00
Asunto:
Obtener archivos del mismo proyecto empaquetado, para su distribución
Que tal buenos días, es mi primer post en este sitio y quiero agradecer a las personas que hacen posible esto, me parece una muy buena herramienta de consulta.
Mi pregunta es la siguiente:
Tengo mi proyecto de VB Net, el cual por necesidades de la emptresa, el Front End, son tablas Libres (.DBF), la cuestión es que necesitamos enviar estas tablas.
La idea es que cuando habran el sistema este revise si existen los archivos en el directorio donde se suponen residen los datos, se que me diran que en el instalador se pueden agregar este tipo de archivos (Pero siempre las bajaria y sobreescribiria los datos).
Lo que queremos realizar es que el mismo programa revise si existen ya las tablas de no ser asi que las pueda copiar del mismo proyecto al directorio de los datos(Cuando este en ejecución el programa), con esto la idea es que cuando ya existan simplemente revise la estructura de las tablas para que las actualize en caso de ser requerido y no copie nuevamente las tablas para no perder la información de los clientes.
Espero haberme dado a explicar, ya estuve consultando un rato en los sitios y no encuentro algo parecido, tal vez no es posible realizar esto, pero quiero salir de la duda.
Ya intente con los comandos:
Dim pruebatabla As File
Dim NombreTabla As String = "Global.Misistema.My.Resources." & "NombreArch"
Dim manipularobjeto As ObjectHandle
Dim assembly1 As Assembly = Assembly.GetExecutingAssembly()
manipularobjeto = AppDomain.CurrentDomain.CreateInstance
(assembly1.FullName, NombreTabla)
pruebatabla = manipularobjeto.Unwrap()
o con esto:
Dim prueba As File = CType(Global.TeknoProd.My.Resources.acumuladolotestk, File)
Gracias y una disculpa por el post tan largo.
|
|
|
|
|
Publicado:
03/10/2011
23:08
Asunto:
Re: Obtener archivos del mismo proyecto empaquetado, para su distribución
Que tal buenas tardes.
Solo para comentar la solución.
Dim byteArrayInputStream() As Byte = My.Resources.acumuladolotestk
Dim fileInputStream As FileStream = New FileStream(StrRutaDatos & "\acumuladolotestk.dbf", FileMode.Create, FileAccess.Write)
fileInputStream.Write(byteArrayInputStream, 0, byteArrayInputStream.Length)
fileInputStream.Flush()
fileInputStream.Close()
Con esto se puede tomar los archivos que estan en Resources y se pueden distribuir.
Saludos y gracias.
Pablo Alvarez G.
Morelos, México
|