Never mind everyone I found what I need. Guess I didn't search hard enough. LOL
Answer:
http://www.devx.com/vb2themax/Tip/18669
For anyone who is interested here is the code:
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
Private Sub Command1_Click()
' Note that this file is 2M, so you might want to try with something simpler
Dim errcode As Long
Dim url As String
Dim localFileName As String
url = "http://www.vb2themax.com/vbmaximizer/files/vbm_demo.zip"
localFileName = "c:\vbm_demo.zip"
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "Download ok"
Else
MsgBox "Error while downloading"
End If
End Sub
This works with ftp as well as long as its anonymous or doesnât need a password anyway. For example:
ftp://ftpuser:[email protected]/unzip.exe
Thanks again to Devx.
And thank you to the people here that have helped me in the past as well.
Dave
blizeach over and out!
KCHHH!!!!