SysRoot Problem[Resolved]

[Merri]

Private Sub Command1_Click()
    Dim strSysRoot As String, Temp As String
    On Error Resume Next
    strSysRoot = Environ("SystemRoot")
    Temp = strSysRoot & "\System32"
    Debug.Print Temp
    TransferSuccess = GetInternetFile(Inet1, "http://www.website.com/filename.dll", Temp)
    If Err Then Debug.Print "Return value: " & TransferSuccess & " | Error " & Err.Number & ": " & Err.Description
End Sub

Check what it says in the debug if it doesn't work.


Edit I also found out from the net you don't need to give a filename, only the path name.