Control til download

Følgende kode fra MSDN skulle via Microsofts Internet Transfer Control (som ligger med i VB) kunne hente og gemme binary files.

Dim strURL As String
Dim bData() As Byte      \' Data variable
Dim intFile As Integer  \' FreeFile variable
strURL = _
\"ftp://ftp.microsoft.com/Softlib/Softlib.exe\"
intFile = FreeFile()      \' Set intFile to an unused
                        \' file.
\' The result of the OpenURL method goes into the Byte
\' array, and the Byte array is then saved to disk.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open \"C:\\Temp\\Softlib.exe\" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile

Den er da meget sej, men den har sgu den lille skavank at der ikke kommer til at stå noget i filen *g*

Nå, men nu fandt jeg selv noget der virker så nu lukker jeg.

mancap>>

Hvis han køre med en gammel version af inet1 controlen ville det være en gode ide at tilføje 3 linjer..

bData() = Inet1.OpenURL(strURL, icByteArray)
\' Vent til den er færdig så du er sikker på at få hele filen

Do while Inet1.StillExecuting = True
DoEvents
Loop

Open \"C:\\Temp\\Softlib.exe\" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile