[RESOLVED] Save in a loop

[ggettings]

Hi I am trying to save about 3000 gif's inside of a loop, it would really save time if I could make the code to do this rather than save each one by one. These pictures all have numbers for example the location of the first picture is http://www.pictures/file/0001.gif (not really but you get the idea). They go up to approx 3000.gif. The only thing on each page is that picture by itself. I want to start a loop at 0001.gif and increment it all the way up to 3000.gif and save each gif iside the loop. Wow even as I type this I'm thinking it may not be possible. Anyway If anyone has seen anything like this could you let me know. No sense starting something I cant finish. Thanks.

[RhinoBull]

Where are you getting those images from - what's the source?

[ggettings]

They are on a server that I dont have access to, I only have access to the web page they are posted on, So I could go to each page and right click on the pic and choose save as but that is tedious.

[Jmacp]

Have a look at the Inet control.

Inet1.OpenURL([URL], [Data Type])

[ggettings]

What do i need to include for that control?

[RhinoBull]

Microsoft Internet Transfer Control.

[MET777]

heres some great code i got somewhere...

bytes() = Inet1.OpenURL("internet URL", icByteArray)
                fnum = FreeFile
            Open "filename" For Binary Access Write As #fnum
                Put #fnum, , bytes()
            Close #fnum

[ggettings]

what type is bytes()?

[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.