■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1670-2VBでファイルをダウンロードするには?0002002-07-13(土) 14:20
     #1671-2RE#1670:VBでファイルをダウンロードするには?リョウ2002-07-13(土) 14:23
     #1672-2RE#1671:VBでファイルをダウンロードするには?0002002-07-13(土) 14:38
     #1675-2RE#1672:VBでファイルをダウンロードするには?匿名16752002-07-13(土) 15:43
     #1680-2RE#1675:VBでファイルをダウンロードするには?0002002-07-14(日) 05:20
     #1683-2RE#1680:VBでファイルをダウンロードするには?匿名16832002-07-14(日) 11:03
     #1699-1RE#1680:VBでファイルをダウンロードするには?匿名16752002-07-15(月) 05:26
     #1710-1RE#1699:VBでファイルをダウンロードするには?0002002-07-15(月) 19:08
#1670-2
VBでファイルをダウンロードするには?
始めまして。イキナリですが質問させてください。
VBでファイルをダウンロードするにはどうしたらいいでしょうか?
対象は実行型ファイルです。ウェブブラウザーコントロールとかじゃなくて、
自動でダウンロードさせたいのです。よろしくお願いします。
#1671-2
RE#1670:VBでファイルをダウンロードするには?
Microsoft Internet Transfer Controlを使えばよろしいかと。
#1672-2
RE#1671:VBでファイルをダウンロードするには?
説明不足ですいません。データの取得までは出来ているのです。
ただ、それをハードディスクに書き込むのが出来なくて・・・
よろしくお願いします。
#1675-2
RE#1672:VBでファイルをダウンロードするには?
> 説明不足ですいません。データの取得までは出来ているのです。
> ただ、それをハードディスクに書き込むのが出来なくて・・・
> よろしくお願いします。

ダウンロードしたデータがどんなデータで、どういう変数に保存しているのか
わかりませんが、ファイルへの保存は、
通常どおりOpen〜Closeでファイルに書き込みます。

テキストデータなら、Print #ステートメント、
バイナリーデータならPut #ステートメントとか。
#1680-2
RE#1675:VBでファイルをダウンロードするには?
> ダウンロードしたデータがどんなデータで、どういう変数に保存しているのか
> わかりませんが、ファイルへの保存は、
> 通常どおりOpen〜Closeでファイルに書き込みます。
最初に書き込んだ通りEXE等のバイナリーです。

> テキストデータなら、Print #ステートメント、
> バイナリーデータならPut #ステートメントとか。
    Open "c:\test" For Binary As #1
        Put #1, , Inet1.OpenURL("対象URL")
    Close #1

#1683-2
RE#1680:VBでファイルをダウンロードするには?
>     Open "c:\test" For Binary As #1
>         Put #1, , Inet1.OpenURL("対象URL")
>     Close #1
ごめんなさい、途中で送信してました。
このようなコードを書いているのですが、何故できないんでしょうか?
普段バイナリーデータは扱わないので、よくわかりません・・・
よろしくお願いします。
#1699-1
RE#1680:VBでファイルをダウンロードするには?
> > ダウンロードしたデータがどんなデータで、どういう変数に保存しているのか
> > わかりませんが、ファイルへの保存は、
> > 通常どおりOpen〜Closeでファイルに書き込みます。
> 最初に書き込んだ通りEXE等のバイナリーです。

申し訳ありません。「実行型ファイル」の部分を見落としてました(^^;

> > テキストデータなら、Print #ステートメント、
> > バイナリーデータならPut #ステートメントとか。
>     Open "c:\test" For Binary As #1
>         Put #1, , Inet1.OpenURL("対象URL")
>     Close #1

バイナリーデータを扱う場合、OpenURLメソッドの第二引数に、
icByteArrayを指定し、戻り値を動的なバイト配列で受けます。
 

Dim b() As Byte
b() = Inet1.OpenURL("対象URL", icByteArray)

Open "書き込み先ファイル" For Binary Access Write As #1
Put #1, , b()
Close #1  

詳しくはOpenURLメソッドのヘルプをご覧ください。
#1710-1
RE#1699:VBでファイルをダウンロードするには?
出来ました。ありがとうございました。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)