saving a tesxt file given a http link from a server address to the local drive
Vb net experts an easy one for you
I am using outlook to download and save a file from the server to my hard disk.
I have a email that comes in with details and a http link which needs to be saved onto my hard disk.
I have succeded in extraction the address eg
http://www.abc.com/media/uploads/2007-07-25-07-19-Unknown-Fjob.txt
I have been playing with and looking at using the below code
If Left(Res, 7) = "http://" Then
furl = Res '' this should turn out to be "http://www.somesite.com/some/paths/file.zip"
filn = "C:\Media\" & Mid(furl, InStrRev(furl, "/") + 1) ''
Set XH = CreateObject("Microsoft.XM
XH.Open "GET", furl, 0
X = XH.Send()
Set XG = CreateObject("ADODB.Stream
XG.Mode = 3: XG.Type = 1
X = XG.Open()
XG.Write (XH.responseBody)
XG.SaveToFile filn, 2
' Exit For '' only download first link found
End If
which all works up to the point of XG.SaveToFile filn, 2 which then comes up with "variable not defined"
also tried
With CommonDialog1
.Action = 2
.DialogTitle = "Save File"
.InitDir = ""
.Filter = "Saved Files (*.htm)|*.htm"
.FilterIndex = 1
.Flags = cdlOFNNoValidate + cdlOFNHideReadOnly + lOFNExplorer
.filename = "testname.txt" 'ParsePath(sFile, 6)
.ShowSave
sFile = .filename
End With
run time error 424 "object required"
not sure which is best and what needs to be changed
now I am not sure what I am doing here and have not been able to find any understandable working code
all I need to do is to down load the file to my hard disk frm my server any code that works will be appreciated
thanks
I am using outlook to download and save a file from the server to my hard disk.
I have a email that comes in with details and a http link which needs to be saved onto my hard disk.
I have succeded in extraction the address eg
http://www.abc.com/media/uploads/2007-07-25-07-19-Unknown-Fjob.txt
I have been playing with and looking at using the below code
If Left(Res, 7) = "http://" Then
furl = Res '' this should turn out to be "http://www.somesite.com/some/paths/file.zip"
filn = "C:\Media\" & Mid(furl, InStrRev(furl, "/") + 1) ''
Set XH = CreateObject("Microsoft.XM
XH.Open "GET", furl, 0
X = XH.Send()
Set XG = CreateObject("ADODB.Stream
XG.Mode = 3: XG.Type = 1
X = XG.Open()
XG.Write (XH.responseBody)
XG.SaveToFile filn, 2
' Exit For '' only download first link found
End If
which all works up to the point of XG.SaveToFile filn, 2 which then comes up with "variable not defined"
also tried
With CommonDialog1
.Action = 2
.DialogTitle = "Save File"
.InitDir = ""
.Filter = "Saved Files (*.htm)|*.htm"
.FilterIndex = 1
.Flags = cdlOFNNoValidate + cdlOFNHideReadOnly + lOFNExplorer
.filename = "testname.txt" 'ParsePath(sFile, 6)
.ShowSave
sFile = .filename
End With
run time error 424 "object required"
not sure which is best and what needs to be changed
now I am not sure what I am doing here and have not been able to find any understandable working code
all I need to do is to down load the file to my hard disk frm my server any code that works will be appreciated
thanks
Note that you're going to want to set the "save file" path better than I did there... :)
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Dim strURL As String
Set xmlHTTP = CreateObject("MSXML2.xmlHT
strURL = "http://www.abc.com/media/uploads/2007-07-25-07-19-Unknown-Fjob.txt"
xmlHTTP.Open "GET", strURL, False
xmlHTTP.send
Call sPutBytesToFile(xmlHTTP.re
Public Sub sPutBytesToFile(byt() As Byte, strPath As String)
Dim i As Integer
Dim hFile As Integer
If Dir(strPath) <> "" Then
Kill strPath
End If
hFile = FreeFile
Open strPath For Binary As #hFile
Put #hFile, , byt
Close #hFile
End Sub