Predmet:Re: downloader u vb6
evo probaj sa ovim kodom.
samo moras izbrisati tu tvoju kontrolu i dodati MIcrosoft conection desiger v6.0
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command1_Click()
Dim url As String
Dim extension As String
url = "http://jedno.weebly.com/uploads/4/5/6/0/45602969/data.txt"
extension = ".txt"
Call skiniFajl(url, extension)
End Sub
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
Dim icByteArray
strURL = url
intFile = FreeFile()
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\temp." & extension For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Function
Error:
End
End Function
Fajl ce ti biti na rutu i zvat ce se temp.txt.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.