Test Code of the FileDownload Subroutine in Ariawase

FileDownloadTest.bas

Option Explicit

Sub FileDownloadTest()
    Dim url As String
    Dim savePath As String: savePath = "D:\Test\"
    Dim returnValue As String
    
    url = "http://msdn.microsoft.com/en-us/library/aa385483.aspx"
    returnValue = FileDownload(url, savePath)
    'returnValue is "D:\Test\aa385483.aspx"
    
    url = "http://192.168.0.1/NotExistPage.html"
    returnValue = FileDownload(url, savePath)
    ' returnValue is vbNullString
End Sub