Grab URL from net to file

[eoredson]

Recently I got a program to get the status of a Url download from the .net

Code: (Select All)

' try to read info on url download. pd 2026.
Cls
URL$ = "http://www.applewoodbbs.linkpc.net/files/ifdc/oredson/SPHERE9.ZIP"
x = Download(URL$, outx)
End

Function Download (url As String, StatusCode As Long)
  Dim bytes As Long, Length As Long
  h& = _OpenClient(url)

  StatusCode = _StatusCode(h&)
  Locate 1, 1: Print "Status:"; StatusCode
  Length = LOF(h&)
  Locate 2, 1: Print "LOF:"; Length
  While Not EOF(h&)
      _Limit 60
      Get #h&, , s$
      bytes = bytes + Len(s$)
      percent! = Int((bytes / Length) * 100!)
      percent$ = Right$("000" + LTrim$(Str$(percent!)), 3) + "%"
      Locate 3, 1: Print percent$;
  Wend
  Close #h&
End Function