A97 - how to transfer a file from https?

[Hanspeter Leupin]

Hi NG,

I need a solution for my Access 97 application. I have to transfer a file
(size 100-500kb) from a server with https.

Example: https://ip.of.my.server/share/textfile.txt -> c:\

Does anybody have a sample code for this?

I tried the transfer library of Dev Ashish - but unfortunately this code
does not work with https... (I posted my problem a couple of days ago...)

Any support is appreciated

Regards

Hanspeter

[Red]

Try this, I wrote it just for you :D
(Cuz I noticed you posed the same question last week, and I didn't have
the time/motivation to do it.....)

Sub GetTxtfilefromHTTP(strFileName As String)
'strFileName is the name of the file you wish to send the document to

'This code was originally written by Dion Douglas
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.

' Requires two references
' shdocvw.dll - Microsoft Internet Controls
' mshtml.tlb - Microsoft HTML Object Library
'

Dim objIE As SHDocVw.InternetExplorer
Dim strFileName As String, txtDoc As String
Dim objDoc As Object
Dim intfree As Integer
Set objIE = New SHDocVw.InternetExplorer
With objIE
.Navigate2 "http://www.google.com"
.Visible = True
Do While .Busy = True
Loop
Set objDoc = .Document
intfree = FreeFile
Open strFileName For Output As #intfree
Write #intfree,
objDoc.body.parentElement.innerHTML
Close #intfree
End With
Set objDoc = Nothing
objIE.Quit
Set objIE = Nothing
End Sub

[Red]

oh man, I meant to also write in to fix the address ....

change this line:
Sub GetTxtfilefromHTTP(strFileName As String)

to
Sub GetTxtfilefromHTTP(strFileName As String, strHTML as String)

AND
change this line:
.Navigate2 "http://www.google.com"

to .Navigate2 strHTML
Then you can call it variably as needed :D

Note, this will also get you the 'source' of html pages, and can be
used as such.

~Red

chaneg this:

[Hanspeter Leupin]

On 10 Jan 2006 11:28:41 -0800, Red wrote:

oh man, I meant to also write in to fix the address ....

change this line:
Sub GetTxtfilefromHTTP(strFileName As String)

to
Sub GetTxtfilefromHTTP(strFileName As String, strHTML as String)

AND
change this line:
.Navigate2 "http://www.google.com"

to .Navigate2 strHTML
Then you can call it variably as needed :D

Note, this will also get you the 'source' of html pages, and can be
used as such.

~Red

chaneg this:

Thank you Red for your replay - I will give a try tomorow and give you some
feedback...

Reagrds

Hanspeter

[Red]

Not a problem...
To explain how this works... what this actually does is get the
'source' from the page you are going to (strHTML)... and, seeing your
file is a text file, it should work quite well. Now, if you needed
another type of file (say a zip file), you would have to do a bit more
coding.

~Red

[Hanspeter Leupin]

On 10 Jan 2006 13:41:38 -0800, Red wrote:

Not a problem...
To explain how this works... what this actually does is get the
'source' from the page you are going to (strHTML)... and, seeing your
file is a text file, it should work quite well. Now, if you needed
another type of file (say a zip file), you would have to do a bit more
coding.

~Red

Hi Red,

I tried your code and got one Problem -> when code comes to line:
..Navigate2 strHTML a Windows-Popup opens with the question of opening or
saving the file...

with regular asp or html files your code works fine...

Regards

Hanspeter

[Red]

I will look into it when I get a chance over the weekend. If someone
else would help, I'd be glad to know..

I think you could probably suppress the msgbox, but, let me look it
over./.. dont' have time today =)
~Red