[VB6]Scrittura File

[GrG]

Ciao a tutti, a volte mi capita un problema che odio da morire e non riesco a risolvere (una volta ci riuscii ma non mi ricordo + come avevo fatto...) il problema è il seguente:
Il mio programma deve:
-Prendere il codice di un'immagine (GIF)
-Creare ed incollare il codice in un'altra immagine (GIF)

Una specie di copia incolla, quando immetto il codice dell'immagine in una variabile è ok (ho controllato con delle msgbox) il problema sorge quando va a creare il file immagine i scriverci dentro il contenuto della variabile, perchè in questo caso il codice delle gif inia + o - così: GIF...
Solo che nella copia il difetta sta che la prima parola non è GIF...come dovrebbe essere ma prima di GIF... ci sono delle serie (3 o 4) di caratteri strani...perchè mi ci mette quei caratteri in più?
il codice che uso:
Dim file1 As String, file2 As String, x As Long, y As Long, tmp(99999) As Byte
Open Path1 For Binary As #2
Do
x = x + 1
Get #2, , tmp(x)
file1 = file1 & Chr(tmp(x))
Loop Until EOF(2) = True
Close #2

eh poi successivamente con un Put metto nel file ciò ke è in file1 (ho provato 1000 modi diversi sia x leggere che per scrivere la GIF) non so + cosa fare mi aiutate voi?

[oregon]

Quel codice non ha senso ... per leggere ti basta

Dim d() As Byte
Dim h As Integer

h = FreeFile
Open "image1.gif" For Binary As #h
ReDim d(1 To LOF(h)) As Byte
Get #h, , d
Close #h

e per scrivere il file

...

h = FreeFile
Open "C:\image2.gif" For Binary As #h
Put #h, , d
Close #h

[GrG]

non va...

EDIT:
Risolto. Tutti i codici provati erano giusti solo che il codice che leggeva il file si trovava in una function mentre il codice che scriveva il file si trovava in una sub e richiamava la funzione, esempio:

Function Leggi(ByVal path as string)
...
End Function

Private Sub Command1_Click()
Open "percorsoimg.gif" for binary as #1
put #1, , Leggi(text1.text)
Close #1
End Sub

Il codice che usavo era tipo questo, invece ho risolto mettendo il codice per leggere il file nella sub, esempio:

Private Sub Command1_Click()
'codice per leggere la gif
...
'codice che scrive il codice nell'altra gif
...
End Sub

[oregon]

Non ho capito ... quale codice hai usato alla fine?

[Grumpy]

Eventualmente esiste anche l'istruzione Filecopy.

[oregon]

Originariamente inviato da Grumpy
Eventualmente esiste anche l'istruzione Filecopy.

Esattamente.

Ho dato per scontato che le funzioni gli servissero, ad esempio, per inviare il file in rete e ricostruirlo in ricezione ...

[GrG]

Lo so che esiste Filecopy ma in realtà il codice dell'immagine viene poi diciamo "modificato" leggermente dal progr...quindi avevo la necessità di aprire il file...cmq ora ho risolto...x quanto riguarda il codice andava benissimo il tuo metodo o quel codice che avevo postato all'inizio...poi io ho usato un'altra variante per la lettura dei dati (cioè: variabile = input(LOF(1), #1)