Dim download() As Byte
Dim ending As String ending = Right(Text1.Text, 4) download() = Inet1.OpenURL(Text1.Text, icByteArray) Open App.Path + "\file" + ending For Binary As #1 Put #1, , download() Close #1 MsgBox "File Salvato su " + App.Path + _ "\file" + ending, vbSystemModal, "Download Completo" |