saving multiple files from a server using inet.
i have a tricky problem that freezes my editor. first of all, here is my code.
Code:
Private Sub monkey_Click()
'set a reference to the Microsoft Internet Transfer Control then use the code below
Label4.Caption = "clicked"
'set protocol to HTTP
For parsetext = 0 To intCount - 1
Label4.Caption = "iterating..."
'set URL
urlnamez = urlArray(parsetext)
filenamez = fileArray(parsetext)
Inet1.URL = Text1.Text & urlnamez
' Retrieve the HTML data into a byte array.
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
' Create a local file from the retrieved data.
Open Text4.Text & filenamez For Binary Access Write As #5
Put #5, , b()
Close #5
Next
End Sub
what it actually is supposed to do, is take 2 arrays, in this case, they are called "urlarray" and "filearray". it then takes the url from the urlarray (its full of urls, already ;), load the data from it into a variable, then save this data, using a filename specified, in the same location, in "filearray".
however, its simply crashes my workstation. :(
does anyone have any insight as to why this happens?
thanks in advance.
Gabe