kimbal

Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
        WinHttpReq.Open "GET", myURL, False  '預備用XMLHTTP library  連接url (用get方式,其他的有POST)
        WinHttpReq.Send '連接url
        '
        myURL = WinHttpReq.ResponseBody '拿出回傳資料(給下一查STATUS用)
        If WinHttpReq.Status = 200 Then ; '如果點傳是"有資料" 200, 行下一步. 常見的找不到有404 (FILE NOT FOUND)
           Set oStream = CreateObject("ADODB.Stream")
           oStream.Open
           oStream.Type = 1
           oStream.Write WinHttpReq.ResponseBody
           oStream.SaveToFile (file_dir)'把回傳的資料經ADODB.STREAM 接駁到檔案位置
           oStream.Close
        End If