Hej!

Jag använder följande kod för att ladda ner en fil från internet till min dator.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function getfile()
Dim llRetVal As Long
llRetVal = URLDownloadToFile(0, "http://adressentillfilen/cde.txt", "c:\cde.txt", 0, 0)
End Function

Jag hittade koden här på pellesofts Tips / tricks.

Men hur gör jag för att koppla en progressbar till denna kopiering, så användaren ser att det händer något.

MVH Pontus A.

Nu har jag inte testat den funktionen, men för att kunna detta så måste det nästan vara en loop som körs alternativt att funktionen URLDownloadToFile triggar ett event som man kan använda. Du får söka på nätet och se vad du kan göra med denna funktion.

Snabbsökning på Google gav
http://msdn.microsoft.com/workshop/networking/moniker/reference/functions/urldownloadtofile.asp
och kodexempel på
http://www.codeproject.com/internet/urlfile.asp
http://home.inreach.com/mdunn/code/URLDownload/URLDownload.html

och det finns ännu mer kodexempel om man söker lite så du borde hitta nåpgot nyttigt snabbt.

Tack för hjälpen alla.