比較的小さいファイルをダウンロードするのに問題無く使えます。
( 3メガバイトを超えるようなファイルは別の方法を検討します。)
Function HTTPDownload( strUrl, strPath )
Dim objSrvHTTP,Stream
Set objSrvHTTP = CreateObject("Msxml2.ServerXMLHTTP.3.0")
Set Stream = CreateObject("ADODB.Stream")
HTTPDownload = True
on error resume next
Call objSrvHTTP.Open("GET", strUrl, False )
if Err.Number <> 0 then
ErrorMessage = Err.Description
HTTPDownload = False
Exit Function
end if
on error goto 0
objSrvHTTP.Send
Stream.Open
Stream.Type = 1 ' バイナリ
Stream.Write objSrvHTTP.responseBody
Stream.SaveToFile strPath, 2
Stream.Close
End Function
関連する記事
WEBのファイルをコマンドラインからダウンロードするスクリプト
: httpget.vbs ( 2〜3メガまでが目安 )
posted by
at 2010-04-14 14:48
|
ツール関数
|

|