COMPONENTE QUE ARMAZENA ARQUIVO

USUARIO.EXCLUIDOS 05/05/2004 08:33:52
#23075 Resposta escolhida

VOCÃÅ  PODE CRIAR UMA CLASSE E ARMAZENAR NUMA STRING TODO O CONTEUDO DO SEU ARQUIVO

EXEMPLO

======================================================

CLASSE CLSCONTEUDO

PUBLIC TIPO AS STRING
PUBLIC CONTEUDO AS STRING

======================================================


=======================================================

CLASSE CLSARQUIVOS

DIM COL AS NEW COLLECTION

PUBLIC SUB ADICIONARARQUIVO(LOCAL AS STRING,NOME AS STRING)
DIM O AS NEW CLSCONTEUDO
DIM DADO AS STING
DIM F AS BYTE
F = FREEFILE
O.TIPO = RIGHT(LOCAL,3)
OPEN LOCAL FOR BINARY AS #F
DADO = SPACE(LOF(F))
GET #F,,DADO
CLOSE F
O.CONTEUDO = DADO
COL.ADD O,NOME
END SUB

PUBLIC SUB REMOVERARQUIVO(NOME) AS STRING
COL.REMOVE NOME
END SUB

PUBLIC FUNCTION LERCONTEUDO(NOME) AS CLSCONTEUDO
DIM O AS NEW CLSCONTEUDO
SET O = COL(NOME)
SET LERCONTEUDO = O
END SUB