Jaba
|
SÃO PEDRO DA ALDEIA
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/04/2007 22:57 hs
Olá pessoal, como faço para ler todo o conteúdo binário de um arquivo e depois criar um outro arquivo com a mesma extenção do arquivo lido, (ex: .exe) e inserir o conteúdo binário lido, no arquivo novo? |
|
|
|
|
|
|
|
Postada em 18/04/2007 11:30 hs
Você quer fazer uma copia de arquivo, lendo byte por byte, é isso?
|
|
|
|
Jaba
|
SÃO PEDRO DA ALDEIA
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/04/2007 23:11 hs
é isso mesmo
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/04/2007 10:30 hs
Function CopyFile(srcFile As String, dstFile As String)
On Error Resume Next
Dim Copy As Long, CopyByteForByte As Byte
Open srcFile For Binary Access Write As #1
Open dstFile For Binary Access Read As #2
For Copy = 1 To LOF(2)
Put #1, , CopyByteForByte
Next Copy
MsgBox "Feito!"
End Function
Para usar:
CopyFile "C:pastaarquivoorigem.xxx", "C:pasta2arquivodestino.xxx"
|
|
|
|
Jaba
|
SÃO PEDRO DA ALDEIA
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/04/2007 22:31 hs
Valeu pela dica, vou testar aqui. |
|
|
|
