Create Text File with FSO and VBA CreateTextFile

Hi,

Have a problem with Write data from the HTTP to text file.
Below part of application in VBA:

Code:

---

Dim objXMLHTTP, xml
targetURL = https://cvpp.eviesiejipirkimai.lt/?Q...=1&PageSize=90
Set xml = CreateObject("Microsoft.XMLHTTP")
Set fso = CreateObject("Scripting.FileSystemObject")
xml.Open "GET", targetURL, False
xml.setRequestHeader "Cache-Control", "no-cache"
xml.Send
Set tfile = fso.CreateTextFile("C:\Desktop\failas.asp", True)
tfile.Write xml.ResponseText  ' Have Run-time error '5': Invalid procedure call or argument
Set fso = Nothing
tfile.Close

---

Sorry for long "targetURL", just you can try real web site and data.
After change last parameter "PageSize=80" have a good result for text file "failas.asp" without "Error '5'".

What I have did in wrong way?


Best regards,
Wirgis

Yet again another thread posted to the wrong forum.

try:

Code:

---

im objXMLHTTP, xml
targetURL = https://cvpp.eviesiejipirkimai.lt/?Q...=1&PageSize=90
Set xml = CreateObject("Microsoft.XMLHTTP")
Set fso = CreateObject("Scripting.FileSystemObject")
xml.Open "GET", targetURL, False
xml.setRequestHeader "Cache-Control", "no-cache"
xml.Send
Set tfile = fso.CreateTextFile(Environ$("UserProfile") & "\Desktop\failas.asp", True)
tfile.Write xml.ResponseText  ' Have Run-time error '5': Invalid procedure call or argument
Set fso = Nothing
tfile.Close

---