Stažení souboru z Internetu

Potřebujete z internetu stáhnout soubor a nemáte FTP přístup?
Nic není nemožné...

Pomocí Win32API a funkce URLDownloadToFile je to jednoduché.
Jediné co je nutné znát, je cesta k souboru, tedy jeho URL adresu.
Pokud zadáte pouze URL například www.swit.cz, dostanete pouze stránku, která je implicitní. Můžete ale zadat i přímou cestu například http://www.swit.cz/inc/include.asp, potom dostanete požadovaný soubor.

Option Explicit

 Private Declare Function URLDownloadToFile _
                              Lib "urlmon" _
                              Alias "URLDownloadToFileA" _
                              (ByVal pCaller As Long, _
                               ByVal szURL As String, _
                               ByVal szFileName As String, _
                               ByVal dwReserved As Long, _
                               ByVal lpfnCB As Long) As Long


Public Function DwnFile(ByVal URL As String, _
                        ByVal LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DwnFile = True
End Function


Private Sub Form_Load()
  'Soubor, ktery je jako default se ulozi na
  '  disk C: jako swit.html
  Dim strUrl
  strUrl = "http://www.swit.cz/inc/include.asp"
  If (DwnFile(strUrl, _
              "c:swit.html")) Then
    MsgBox "OK, stazeno"
  Else
    MsgBox "Pri stahovani doslo k chybe."
  End If
End Sub