Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Download (copy) file from the internet
Hi,
i want to know if it is possible to download a specific file from my website to my harddisk. If so, I can let my users make an update from a file which I have place on my webspace. Thanks Jos Vens |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Download (copy) file from the internet
http://groups.google.com/groups?selm...&output=gplain
This was posted recently by Mudraker: (code from Randy Birch's site) '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''' ' Copyright ©1996-2003 VBnet, Randy Birch, All Rights Reserved. ' Some pages may also contain other copyrights by the author. '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''' ' Distribution: You can freely use this code in your own ' applications, but you may not reproduce ' or publish this code on any web site, ' online service, or distribute as source ' on any media without express permission. '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''' 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 Private Const ERROR_SUCCESS As Long = 0 Private Const BINDF_GETNEWESTVERSION As Long = &H10 Private Const INTERNET_FLAG_RELOAD As Long = &H80000000 Public Function DownloadFile(sSourceUrl As String, _ sLocalFile As String) As Boolean 'Download the file. BINDF_GETNEWESTVERSION forces 'the API to download from the specified source. 'Passing 0& as dwReserved causes the locally-cached 'copy to be downloaded, if available. If the API 'returns ERROR_SUCCESS (0), DownloadFile returns True. DownloadFile = URLDownloadToFile(0&, _ sSourceUrl, sLocalFile, _ BINDF_GETNEWESTVERSION, _ 0&) = ERROR_SUCCESS End Function ' Mukraker's code to call the function Sub AutoDownloadIntranetFile() Dim sSourceUrl As String Dim sLocalFile As String Dim hfile As Long sSourceUrl = "http://www.??????" sLocalFile = "c:\temp" If DownloadFile(sSourceUrl, sLocalFile) = False Then Call cmdE MsgBox "Error In Downloading File" _ & Chr(10) _ & "Cannot Continue", vbCritical End End If End Sub sub cmdE() AppActivate "microsoft excel" end Sub -- Regards, Tom Ogilvy "Jos Vens" wrote in message ... Hi, i want to know if it is possible to download a specific file from my website to my harddisk. If so, I can let my users make an update from a file which I have place on my webspace. Thanks Jos Vens |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy data from internet to excel | Excel Discussion (Misc queries) | |||
Internet Explorer opens a local copy | Excel Discussion (Misc queries) | |||
Internet explorer download/XP Pro?? | Excel Discussion (Misc queries) | |||
Download from the Internet into Excel | Excel Discussion (Misc queries) | |||
automatically download and print a pdf file from the Internet | Excel Programming |