INCORPORAR AQUIVO QUALQUER EM EXECUTAVEL

USUARIO.EXCLUIDOS 08/04/2004 09:09:41
#19347 Resposta escolhida

TENTE O SEUINTE

SUB ADICIONARARQUIVO(ARQUIVOORIGEM AS STRING,ARQUIVOADICIONADO AS STRING)
DIM CA AS BYTE
DIM CB AS BYTE
DIM T AS LONG
DIM S AS STRING
CA = FREEFILE
OPEN ARQUIVOORIGEM FOR BINARY AS CA
CB = FREEFILE
OPEN ARQUIVODESTINO FOR BINARY AS CB
T = LOF(CB)
IF T 0 THEN
DO
IF EOF(CB) THEN EXIT DO
IF T 1024 THEN
T = T - 1024
S = SPACE(1024)
ELSE
S = SPACE(T)
END IF
GET #CB,,S
PUT#CA,,S
LOOP
END IF
CLOSE CA
CLOSE CB
END SUB

USUARIO.EXCLUIDOS 09/04/2004 14:49:40
#19642

O que o nosso amigo CASPER-EARK te mostrou é um jeito de adicionar um arquivo no seu executavel VB e poder acessa-lo via código.
Por exemplo, quando se cria um aplicativo para varias linguagens se usa um arquivo de recurso onde cada coluna representa um idioma,etc... ou salva neste arquivo de recurso varias imagens que podem ser exibidas depois.. mais ou menos isto.

Quando compilar seu aplicativo o arquivo de recurso vai se juntar com seu executavel formando um só

O exemplo que te dei é de adicionar um arquivo com um outro já exeistente, igual usado em instaladores.

Onde a primeira parte do arquivo é o arquivo executavel do instalador e o restante são arquivos a serem instalados

USUARIO.EXCLUIDOS 25/04/2004 16:35:33
#22540

TENTE O SEUINTE

ADICIONARARQUIVO - ADICIONA UM ARQUIVO EM UM EXECUTAVEL
EXTRAIARQUIVO - EXTRAI UM ARQUIVO DO EXECUTAVEL

SUB ADICIONARARQUIVO(ARQUIVOORIGEM AS STRING,ARQUIVOADICIONADO AS STRING)
DIM CA AS BYTE
DIM CB AS BYTE
DIM T AS LONG
DIM S AS STRING
CA = FREEFILE
OPEN ARQUIVOORIGEM FOR BINARY AS CA
CB = FREEFILE
OPEN ARQUIVODESTINO FOR BINARY AS CB
T = LOF(CB)
IF T 0 THEN
DO
IF EOF(CB) THEN EXIT DO
IF T 1024 THEN
T = T - 1024
S = SPACE(1024)
ELSE
S = SPACE(T)
END IF
GET #CB,,S
PUT #CA,,"**********"
PUT#CA,,S
LOOP
END IF
CLOSE CA
CLOSE CB
END SUB

SUB EXTRAIRARQUIVO(ARQUIVOORIGEM AS STRING,ARQUIVOADICIONADO AS STRING)
DIM CA AS BYTE
DIM CB AS BYTE
DIM T AS LONG
DIM S AS STRING
DIM SS AS STRING
CA = FREEFILE
OPEN ARQUIVOORIGEM FOR BINARY AS CA
CB = FREEFILE
OPEN ARQUIVODESTINO FOR OUTPUT AS CB
T = LOF(CA)
IF T 0 THEN
DO
IF EOF(CA) THEN EXIT DO
IF T 1024 THEN
T = T - 1024
S = SPACE(1024)
ELSE
S = SPACE(T)
END IF
GET #CA,,S
SS = SS & S
LOOP
END IF
CLOSE CA
S = MID(SS,INSTR(1,SS,"**********")+10)
PRINT #CB,S
CLOSE CB
END SUB