用wininet控件。这是msdn上的一个例子Dim b() As Byte
Dim strURL As String
' Set the strURL to a valid address.
strURL = "FTP://ftp.GreatSite.com/China.exe"
b() = Inet1.OpenURL(strURL, icByteArray)Open "C:\Temp\China.exe" For Binary Access _
Write As #1
Put #1, , b()
Close #1
Dim strURL As String
' Set the strURL to a valid address.
strURL = "FTP://ftp.GreatSite.com/China.exe"
b() = Inet1.OpenURL(strURL, icByteArray)Open "C:\Temp\China.exe" For Binary Access _
Write As #1
Put #1, , b()
Close #1
解决方案 »
免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货