Postato originariamente da Mikiwi93:
Riga incriminata
Codice sorgente - presumibilmente Plain Text |
Ps craagle apriva il file da scaricare tramite il download di windows explorer... |
mi sa che ti da l'errore perchè non l'hai dichiarata, cioè ti manca:
dim bytes() as byte
ah, se vuoi scaricare con la finestra tipo di ie devi usare un'api, il cui utilizzo credo ti risulterà più semplice:
Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
Dim sDownload As String
sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)
End Sub
' in text1.text c'è il percorso del link