Webサイト（ｐｄｆ）の内容を一定時間ごとにコピー

質問

Webサイト（ｐｄｆ）の内容を一定時間ごとにコピー（ダウンロード）するプログラムをビジュアルベーシックでつくることは可能でしょうか。またどのようにすればよいか教えていただきたくよろしくお願いいたします。

回答No.1

aoyama984

http://note.chiebukuro.yahoo.co.jp/detail/n7718
別件ですが参考まで
URLが固定なら

mySRC = "http://test.ne.jp/test.pdf"
myWAIT = 5 '間隔 (分)
myTIME = 6 '回数 5分*6回=30分

myDT = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
For i = 1 To myTIME
Set myXH = CreateObject("Msxml2.XMLHTTP")
myNAME = Split(mySRC, "/")(Ubound(Split(mySRC, "/")))
myXH.Open "GET", mySRC, False
myXH.setRequestHeader _
"If-Modified-Since", _
"Thu, 01 Jun 1970 00:00:00 GMT"
myXH.Send
With CreateObject("Adodb.Stream")
.Type = 1 'Binary
.Open
.Write myXH.responseBody
.Savetofile myDT & myNAME, 2 'OverWrite
.Close
End With
Set myXH = Nothing
Wscript.Sleep myWAIT * 1000 * 60
Next

お礼

ありがとうございました。
初心者ですので頂いた回答をもとに勉強します。
本当にありがとうございました。