How to download a file using VBA

Requirement:

The user is creating VBA to automatically download files from a password protected webserver.

Solution:

Code:

For x = 2 To lastrow
    For i = 0 To UBound(files)
        filedate = ThisWorkbook.Sheets(1).Cells(x, 1).Value
        full_file_path = filepath + filedate + "\" + files(i, 0) + filedate + files(i, 1)
           
        a = MkDir(filedate, filepath)
           
        fileurl = mainurl + filedate + "/" + files(i, 0) + filedate + files(i, 1)
        
        Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
        
        'Then you have to GET direct file url
        WHTTP.Open "GET", fileurl, False
        WHTTP.SetCredentials "ad15qy", "Itsmyn80", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
        WHTTP.Send
        
        FileData = WHTTP.ResponseBody
        Set WHTTP = Nothing
        
        'Save the file
        FileNum = FreeFile
        Open full_file_path For Binary Access Write As #FileNum
            Put #FileNum, 1, FileData
        Close #FileNum
    Next i
Next x

Obtained from the OzGrid Help Forum.

Solution provided by eureka18.