5 replies to this topic

[Backslash]

Public Sub DownloadFile(ByVal URL As String, ByVal Path As String)
 	Dim Filenum As Integer, strHTML As String
 	If Dir(Path) <> vbNullString Then Kill(Path)
 	Filenum = FreeFile()
 	strHTML = GetWrapper(URL)
 	If strHTML <> vbNullString Then
 	strHTML = StripHeaders(strHTML)
 	Open Path For Output As Filenum 
 	Print #Filenum, strHTML 
 	Close(Filenum)
 	End If
	End Sub

Im getting errors at Open, Path, For, #, and Close. If you need to know what errors, just ask. My namespace is:

Option Strict Off
Option Explicit On


Imports VB = Microsoft.VisualBasic
Imports System.Text.RegularExpressions
Imports System
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Net
Imports System.IO.Compression
Imports System.Runtime.Serialization.Formatters.Binary

Thanks!

Edited by Backslash, 24 October 2009 - 04:10 PM.

[artificial]

I don't understand why you can't just access the page like you would any other HTTP request, and save the file like you would any other?

http://www.freevbcod...Code.Asp?ID=733

[Backslash]

what do you mean? ive tried many methods, this is my last one

oh, im getting an error that 'open' and 'close' is not declared

Edited by Backslash, 25 October 2009 - 12:41 AM.

[Dan]

Open and Close were old VB6 functions that weren't ported over.

Instead of using this methodology - use a StreamWriter instead - used for writing to a file.

[Johnbon]

or use my.computer.network.downloadfile

[Waser Lave]

or use my.computer.network.downloadfile

I presume they wanted it to download the Neopets captcha image, in which case yours wouldn't work as it wouldn't send the right cookies.

To just download general files it would be fine though.