{ RESOLVED } Download a file...

[wrack]

Hi,

I want to download a file through a program which should be like this...

Option Explicit
 
Dim strURL As String
Dim strSaveLocation As String
 
Private Sub cmdDownload_Click()
    'Can I use it like this...
    strURL = "http://www.xyz.com/shared/1.zip"
    strSaveLocation = "C:\Temp\..."
    Call DownloadFile(strURL, strSaveLocation)
    
    strURL = "http://www.xyz.com/shared/2.zip"
    strSaveLocation = "C:\Temp\..."
    Call DownloadFile(strURL, strSaveLocation)
End Sub
 
Private Sub DownloadFile(URL As String, SaveLocation As String)
    'Need a code for download
End Sub

what do u think...is this possible...I have no idea what kinda control to use...

[wrack]

* bump *

[wrack]

OK then...I have solved it...

Take a look as this attachment...

[wrack]

not a single reply...!!!

[Pc_Madness]

Its cause no one cares and everyone knew that you didn't need any help in solving the problem

[MidgetsBro]

That's a lot of code, but less dependencies. I would have just used the inet control.

Dim buff() As Byte
buff = Inet1.OpenURL("http://www.xyz.com/shared/1.zip", icByteArray)
Open "C:\1.zip" For Binary As #1
  Put #1, , buff
Close #1

[BuggyProgrammer]

you could have used:

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
Private Sub Form_Load()
    'example by Matthew Gates ([email protected])
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

[wrack]

Originally posted by Pc_Madness
Its cause no one cares and everyone knew that you didn't need any help in solving the problem

I think ur name suggests ur nature...I found help from some where else and I don't like to bother someone if I don't have any trouble...

Give ur self a break from PC's madness...