[RESOLVED] Save in a loop

[RhinoBull]

It's a Byte array.

[ggettings]

Ok, I guess now my problem is actually writing it to my file. I've created a file geoff.gif on my desktop and use this code:

Private Sub Form_Load()
Inet1_StateChanged (State)
End Sub
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim bytes() As Byte
 
bytes() = Inet1.OpenURL("http://www.thefishfinder.com/images/worlds1.gif", icByteArray)
                fnum = FreeFile
            Open "geoff.gif" For Binary Access Write As #fnum
                Put #fnum, , bytes()
            Close #fnum
End Sub

How do I get it to write to geoff.gif? I've never done anything like this before so I may be going about it wrong.

[ggettings]

O nevermid it's working, I was looking in the wrong spot for the file. Thanks everyone.

[RhinoBull]

Sounds better.