URLを指定してファイルをダウンロードする
こちらのページを参考にしています。
Yahoo!のトップのロゴをダウンロードするには、以下のようなプログラムになります。
Visual Basic:
-
'URLDownloadToFile API from URLMON.
-
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
-
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
-
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
-
-
Sub test()
-
Dim strURL As String
-
Dim strFNAME As String
-
Dim returnValue
-
-
strURL = "http://k.yimg.jp/images/top/sp/logo.gif"
-
strFNAME = "c:\yahoologo.gif"
-
returnValue = URLDownloadToFile(0, strURL, strFNAME, 0, 0)
-
-
End Sub
これでCドライブのルートにyahoologo.gifという名前でダウンロードされます。
