instalacion de archivos visual basic 6

[iccamilo]

quiero crear como un tipo de instalacion en visual basic utilizando controles como el progressbar y otros como le ago. por favor ayudenmen gracias

[David]

Iniciado por iccamilo

quiero crear como un tipo de instalacion en visual basic utilizando controles como el progressbar y otros como le ago. por favor ayudenmen gracias

Yo solía hacerlo de la sgte. manera:
- Media el tamaño total de los archivos a instalar (100%)
- Cada archivo que iba instalando media su tamaño (X% - Calcular)
- Cuando se terminaba de instalar incrementaba al progressbar el X%, mostrando el progreso de la instalación...

Lógicamente que no es la mejor manera, y existen API's que te dan el progreso de la copia de archivos por separado que le haria a tu programa mas interesante, pero con el que te mostré ya está bien...

[iccamilo]

Iniciado por David el Grande

Yo solía hacerlo de la sgte. manera:
- Media el tamaño total de los archivos a instalar (100%)
- Cada archivo que iba instalando media su tamaño (X% - Calcular)
- Cuando se terminaba de instalar incrementaba al progressbar el X%, mostrando el progreso de la instalación...

Lógicamente que no es la mejor manera, y existen API's que te dan el progreso de la copia de archivos por separado que le haria a tu programa mas interesante, pero con el que te mostré ya está bien...

me prodria dar ejemplo de como hacerlo

[iccamilo]

Iniciado por David el Grande

Yo solía hacerlo de la sgte. manera:
- Media el tamaño total de los archivos a instalar (100%)
- Cada archivo que iba instalando media su tamaño (X% - Calcular)
- Cuando se terminaba de instalar incrementaba al progressbar el X%, mostrando el progreso de la instalación...

Lógicamente que no es la mejor manera, y existen API's que te dan el progreso de la copia de archivos por separado que le haria a tu programa mas interesante, pero con el que te mostré ya está bien...

si tienes ejemplo con archivos frm . Me seria mas falcil pe lo podria en viar al correo [email protected] Por fa

[David]

Iniciado por iccamilo

me prodria dar ejemplo de como hacerlo

Bueno, ya tienes todos los archivos que quieres instalar ¿verdad?
Mide su tamaño total.
Te daré un ejemplo practico, supongamos que quieras instalar los sgtes. archivos: App.exe, Leame.txt, App.hlp, Data.mdb

Mide su tamaño: ej: 5 MB.
App.exe: 2MB
Leame.txt: 1MB
App.hlp: 1MB
Data.mdb: 1MB

Así al copiar todo el App.exe agregarás al ProgressBar 40%
Leame.txt: 20%
App.hlp: 20%
Data.mdb 20%

Allí ya completas los 100% en tu Progressbar indicando que la instalación ha finalizado...

[iccamilo]

Iniciado por David el Grande

Bueno, ya tienes todos los archivos que quieres instalar ¿verdad?
Mide su tamaño total.
Te daré un ejemplo practico, supongamos que quieras instalar los sgtes. archivos: App.exe, Leame.txt, App.hlp, Data.mdb

Mide su tamaño: ej: 5 MB.
App.exe: 2MB
Leame.txt: 1MB
App.hlp: 1MB
Data.mdb: 1MB

Así al copiar todo el App.exe agregarás al ProgressBar 40%
Leame.txt: 20%
App.hlp: 20%
Data.mdb 20%

Allí ya completas los 100% en tu Progressbar indicando que la instalación ha finalizado...

PERO EN CODIGO COMO SERIA????

[David]

Iniciado por iccamilo

PERO EN CODIGO COMO SERIA????

No es necesario código, entra en las propiedades del archivo.... y ya está...

[iccamilo]

Iniciado por David el Grande

No es necesario código, entra en las propiedades del archivo.... y ya está...

NO ENTIENDO COMO LE DIGO AL PROGESS QUE AVANCE SEGUN LA COPIA DE ARCHIVOS????

[David]

Iniciado por iccamilo

NO ENTIENDO COMO LE DIGO AL PROGESS QUE AVANCE SEGUN LA COPIA DE ARCHIVOS????

Al finalizar la copia del App.exe:

Código:

ProgressBar1.Value = ProgressBar1.Value + 40

Al finalizar la copia del Readme.txt:

Código:

ProgressBar1.Value = ProgressBar1.Value + 20

Al finalizar la copia del App.hlp:

Código:

ProgressBar1.Value = ProgressBar1.Value + 20

Al finalizar la copia del Data.mdb:

Código:

ProgressBar1.Value = ProgressBar1.Value + 20

[iccamilo]

Iniciado por David el Grande

Al finalizar la copia del App.exe:

Código:

ProgressBar1.Value = ProgressBar1.Value + 40

Al finalizar la copia del Readme.txt:

Código:

ProgressBar1.Value = ProgressBar1.Value + 20

Al finalizar la copia del App.hlp:

Código:

ProgressBar1.Value = ProgressBar1.Value + 20

Al finalizar la copia del Data.mdb:

Código:

ProgressBar1.Value = ProgressBar1.Value + 20

OK MUCHAS GRACIAS PERO AHORA COMO AGO PARA LA COPIA DE ARCHIVOS

[David]

Iniciado por iccamilo

OK MUCHAS GRACIAS PERO AHORA COMO AGO PARA LA COPIA DE ARCHIVOS

FileCopy App.Path & "\App.exe", Directorio_Instalacion & "\App.exe"

[iccamilo]

Iniciado por David el Grande

FileCopy App.Path & "\App.exe", Directorio_Instalacion & "\App.exe"

TAL COMO ESTA pOIR QUE YA LO E INTENTADO Y ME DICE QUE EL ARCHIVO NO ES VALIDO O NO SE ENCUENTRA

Y CON LOS &..??-

[David]

Iniciado por iccamilo

TAL COMO ESTA pOIR QUE YA LO E INTENTADO Y ME DICE QUE EL ARCHIVO NO ES VALIDO O NO SE ENCUENTRA

Y CON LOS &..??-

Pues el código que te mandé es solo un ejemplo, App.exe es solo un archivo de ejemplo, así como la variable Directorio_Instalacion.....

[iccamilo]

Iniciado por David el Grande

Pues el código que te mandé es solo un ejemplo, App.exe es solo un archivo de ejemplo, así como la variable Directorio_Instalacion.....

PERO DI GAMOS QUIERO COPIAR EL APP.EXE PARA ESO LE DIGO EL COMANDO FILECOPY + EL NOMBRE DEL ARCHIVO + DONDE SE ENCUENTRA O DONDE SE INSTALA???ME JOR DICHO TAL COMO ESTA EL EJEMPLO??'

[iccamilo]

Iniciado por David el Grande

Pues el código que te mandé es solo un ejemplo, App.exe es solo un archivo de ejemplo, así como la variable Directorio_Instalacion.....

he escrito asi FileCopy ("C:\Documents and Settings\ivan\Escritorio\2\SET.EXE"), ("C:\set.exe") pero no me funciona cual es el problema???

[ccca001]

Iniciado por iccamilo

he escrito asi FileCopy ("C:\Documents and Settings\ivan\Escritorio\2\SET.EXE"), ("C:\set.exe") pero no me funciona cual es el problema???

primero esta linea...
Set fs = CreateObject("scripting.filesystemobject")
luego:
fs.copyfile tudirectoriodeorigen/tuarchivo, tudirectoriodedestino, (true/false)

true sobrescribe en caso de existir archivo con el mismo nombre, false no..

[David]

Iniciado por iccamilo

he escrito asi FileCopy ("C:\Documents and Settings\ivan\Escritorio\2\SET.EXE"), ("C:\set.exe") pero no me funciona cual es el problema???

Los paréntesis son el problema....

[David]

Iniciado por ccca001

primero esta linea...
Set fs = CreateObject("scripting.filesystemobject")
luego:
fs.copyfile tudirectoriodeorigen/tuarchivo, tudirectoriodedestino, (true/false)

true sobrescribe en caso de existir archivo con el mismo nombre, false no..

Para que declarar el objeto del sistema si la función ya existe en el Visual Basic...

[iccamilo]

Iniciado por David el Grande

Para que declarar el objeto del sistema si la función ya existe en el Visual Basic...

ya pude con otro codigo pero gracias. pero una pregunta si yo quiero copiar archivos a la carpeta de windows sin decirle en que disco se encuentre como lo escribiria????

[David]

Iniciado por iccamilo

ya pude con otro codigo pero gracias. pero una pregunta si yo quiero copiar archivos a la carpeta de windows sin decirle en que disco se encuentre como lo escribiria????

No se puede, pero sí se puede saber en qué directorio está el Windows, si quieres te doy la función.....

[iccamilo]

Iniciado por David el Grande

No se puede, pero sí se puede saber en qué directorio está el Windows, si quieres te doy la función.....

porfavor..Gracias

[David]

Iniciado por iccamilo

porfavor..Gracias

Copia esto en un modulo:

Código:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetWinDir() As String
Dim Buffer As String, Size As Long
Const MAX_PATH = 260
Buffer = String(MAX_PATH, 0)
Size = GetWindowsDirectory(Buffer, Len(Buffer) - 1)
If Size <> 0 Then
    GetWinDir = Left(Buffer, Size)
End If
End Function