聲明:
私有聲明函數URLDownloadToFile Lib“urlmon”別名“URLDownloadToFileA”(ByVal p caller為Long,ByVal szURL為String,ByVal szFileName為String,ByVal dwReserved為Long,ByVal lpfnCB為Long)為Long
然後直接在代碼中調用:
調用URLDownloadToFile(0,“網絡地址”,“本地保存的地址和文件名”,0,0)
第二個相當於“另存為”
聲明:
私有聲明函數dofile download Lib " shdocvw . dll "(ByVal lpszFile As String)為Long
然後直接在代碼中調用:
Dim AdUrl作為字符串
AdUrl = StrConv("網絡地址",vbUnicode)
調用文件下載(AdUrl)