|
>未知の領域なのでじっくりやってみよう
理屈を言うようだけど、未知なら手かがリの一つでも知らないと
"じっくりやる"ことすら出来ないと思いますが・・。
Win32APIを使うコードのサンプルは
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 MyFile_DL()
Dim SaveFileName As String
Dim DownloadFile As String
Dim Ret As Long
SaveFileName = "C:\Test.htm"
DownloadFile = "http://www.msn.co.jp/home.htm"
Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)
DoEvents
If Ret = 0 Then
MsgBox "ダウンロードできました。"
Else
MsgBox "エラーが発生しました。"
End If
End Sub
|
|