人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

vbsで指定したフォルダへの保存。

以下サイト、No.5にあるスプリクトで、保存先をディスクトップ上の
あらかじめ作成しておいたフォルダに保存するには
どのようにしたらいいのでしょう?

(仮にフォルダ名を「保存フォルダ」として)

http://oshiete.goo.ne.jp/qa/2259841.html?ans_count_asc=1

●質問者: にゃんころね
●カテゴリ:コンピュータ
✍キーワード:VBS サイト ディスクトップ フォルダ 作成
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● あすか
●100ポイント ベストアンサー

下記のようになります。

Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2

For i= 0 To 6 '現在時刻から6時間後まで
 dYear = Fmt(Year(Now),4)
 dMonth = Fmt(Month(Now),2)
 dDay = Fmt(Day(Now),2)
 dHour = Fmt(Hour(Now),2)
 dMinute = "00"
 dName = dYear & dMonth & dDay & dHour & dMinute & "-0" & i & ".png"
 sSource = "http://www.jma.go.jp/jp/radame/imgs/prec/000/" & dName 'ダウンロード元
 Set ws = WScript.CreateObject("WScript.Shell") '特殊フォルダ名の取得
 desktopDir = ws.SpecialFolders("Desktop") 'デスクトップの実体
 sDest = desktopDir & "\保存フォルダ\" & dName 'コピー先
 Set oHTTP = WScript.CreateObject("Msxml2.XMLHTTP")
 oHTTP.Open "GET", sSource, False
 oHTTP.Send
 Set Stream = WScript.CreateObject("Adodb.Stream")
 Stream.Type = adTypeBinary
 Stream.Open
 Stream.Write oHTTP.responseBody
 Stream.Savetofile sDest, adSaveCreateOverWrite
Next

Function Fmt(num, digit) '0を頭につけて桁数を合わせる(例:6→06)
 Fmt = Right(String(digit, "0") & num, digit)
End Function
◎質問者からの返答

ありがとうごいます!

希望通り、保存するできるようになりました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ