download file

Article View: free.it.visual-basic

Article #1745

Back to free.it.visual-basic Previous Next

#1745

From: Luca
Date: Fri, 30 Jan 2004 23:25

27 lines
1734 bytes

Ho utilizzato il seguente codice per scaricare un file da internet e tutto
funziona ma vorrei inserire una barra che mi indichi quanto tempo manca ala
completamento del download. E' possibile farlo??

Grazie in anticipo
Luca

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 DownloadFile(URL As String, _
    LocalFilename As String) As Boolean

    Dim lngRetVal As Long

    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)

    If lngRetVal = 0 Then DownloadFile = True

End Function

ret = DownloadFile(http://www.space-web.com/pippo.exe, App.Path &
"\pippo.exe")

Technical Details

Message-ID: <YJBSb.228076$_P.7801420@news4.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!irazu.switch.ch!switch.ch!newsfeed.nextoneserver.com!news-out.tin.it!news-in.tin.it!news4.tin.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f94ee,e8a5bc834d9d824a,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2004-01-30 15:25:44 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!irazu.switch.ch!switch.ch!newsfeed.nextoneserver.com!news-out.tin.it!news-in.tin.it!news4.tin.it.POSTED!not-for-mail
From: "Luca" <xxx@xxx.it>
Newsgroups: free.it.visual-basic
Subject: download file
Lines: 29
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <YJBSb.228076$_P.7801420@news4.tin.it>
Date: Fri, 30 Jan 2004 23:25:44 GMT
NNTP-Posting-Host: 80.180.63.163
X-Complaints-To: newsmaster@tin.it
X-Trace: news4.tin.it 1075505144 80.180.63.163 (Sat, 31 Jan 2004 00:25:44 MET)
NNTP-Posting-Date: Sat, 31 Jan 2004 00:25:44 MET
Organization: TIN