MartyConnelly
martyconnelly at shaw.ca
Mon Dec 20 12:58:55 CST 2004
Well there is the Inet Internet transfer control not sure if it is
attached to IE dll's
or you could try
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
Sub tryurl()
Dim retVal As Long
Dim URL As String
Dim LocalFileName As String
' change this line to the URL of the file:
URL =
"http://www5.brinkster.com/mconnelly/GenericDB/ordersSubFormform.txt"
' change this line to the local filename to save the file as:
LocalFileName = "c:\temp\testform.txt"
retVal = URLDownloadToFile(0, URL, LocalFileName, 0, 0)
If retVal = 0 Then
Debug.Print "File received."
Else
Debug.Print "Unable to download file."
End If
End Sub
Stuart McLachlan wrote:
>On 19 Dec 2004 at 23:37, MartyConnelly wrote:
>
>
>
>>' I am using latest Version of IE6
>>' should also work with IE5.0 MSXML ver 2.0,2.6, 3.0 etc
>>
>>
>>
>
>And for the growing number of people like myself who use Firefox and have
>their firewall block IE from accessing the Internet? :-)
>
>
>
--
Marty Connelly
Victoria, B.C.
Canada