פונקצית API
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 DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function DIM Success as Boolean Success= DownloadFile(FileURL, ToFile_Name)
נ.ב. : ניתן באמצעות פקדים OCX שקיימים ב-VB אך לא הייתה לי אפשרות לשלוח קובץ ZIP לדוגמה
