Predmet:downloader u vb6

---

evo mene opet sa glupim pitanjima
nakon sto sam pokusavao nisam uspio pa se javljam ako netko ima snage i volje
radi se o sljedecem
potreban je "kod" vrlo jednostavan za skinuti fajl sa internet web stranice ili jos bolje sa google diska
recimo da imamo svi nekakve programe u vb6 (primjer tel.imenik) i upisujemo nove kontakte i onda svi nadogradimo sa novim adresama i kontaktima jednim klikom.
vidio sam po internetu da koriste Microsoft Common Dialog kontrole 6.0 dodao sam to n formu
a ono sto sam mislio da je najbolje je ovaj kod:

Private Sub Command1_Click()
dim URL as string
dim extension as string
URL = "http://jedno.weebly.com/data.txt"
extension = ".txt"
call skiniFajl(URL, extension)
End Sub

dodamo novi modul i stavimo ovo:

Public Function skiniFajl(url As String, extension As String)
    On Error GoTo Error
    Dim strURL As String
    Dim bData() As Byte
    Dim intFile As Integer
    strURL = url
    intFile = FreeFile()
    bData() = Inet1.OpenURL(strURL, icByteArray)
    Open Environ("temp") & "temp" & extension For Binary Access Write As #intFile
        Put #intFile, , bData()
    Close #intFile
    Exit Function
    Error:
    End
End Function

meni ovo uopce ne radi i trazim po temp mapi no nema data.txt ni za ljek
a niti znam kako snimiti na hd pokusavao sam ovo

Open "C:\data.txt" For Binary Access Write As #intFF
Put #intFF, , bData
Close #intFF

no nece pa nece. ode na Error , uhvatio sam ga na End, znaci preskoci sve ko da je pijano
i sad ti budi pametan.

ajd ako neko ima volje da malo pripomogne, nije hica to je vise za kucnu razbibrigu pa tako da nemorate zuriti

---