Download excute file

[Joacim Andersson]

What's wrong with App.Path? Downloading to the Windows folder might not be the best idea but you can use the GetWindowsDirectory API function to get the path to that.

Private Declare Function GetWindowsDirectory _
 Lib "kernel32.dll" Alias "GetWindowsDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long _
) As Long
 
Public Function GetWinDir() As String
    Const MAX_PATH As Long = 260&
    Dim sDir As String
    Dim nLen As Long
    sDir = String(MAX_PATH, vbNullChar)
    nLen = GetWindowsDirectory(sDir, MAX_PATH)
    GetWinDir = Left$(sDir, nLen)
End Function