Oppure

Loading
10/11/09 20:10
Mikiwi93
Postato originariamente da GrG:

allora prima di tutto vb6 quale riga ti evidenzia? quindi qual'è la riga incriminata?

per selezionare il percorso in cui salvare il file basta che metti nell'evento change del dirbox:
text1.text = dir1.path

per ricavare il nome del file che stai scaricando devi crearti una tua funzione, in linea teorica:

tu scarichi ad esempio sito.it.com/…

devi ricavarti file.exe per farlo con instr() trovi l'ultimo "/" poi selezioni tutto quello che c'è dopo ossia file.exe...

Riga incriminata 
  bytes() =
Ps craagle apriva il file da scaricare tramite il download di windows explorer...
Ultima modifica effettuata da Mikiwi93 10/11/09 20:15
aaa
10/11/09 20:27
GrG
Postato originariamente da Mikiwi93:
Riga incriminata 
  bytes() =
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
aaa
10/11/09 20:57
Mikiwi93
Postato originariamente da GrG:

Postato originariamente da Mikiwi93:
Riga incriminata 
  bytes() =
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

Funziona...grazie era questo che cercavo....:cheer:
aaa