VB中实现下载指定文件到指定文件夹！

先在“部件”里添加internet Transfer Control控件，放到窗体上，名字按默认再添加一个按钮，名字也按默认然后复制下面的代码：Private Sub Command1_Click()Inet1.Protocol = icHTTPInet1.RemotePort = 80Inet1.URL = " http://xue.yn66.com/Sound/song/cafee/whateveryoulike.mp3" Inet1.Execute , "Get"End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)'Dim aa As VariantDim vtData() As Byte '数据变量。If State = 12 ThenOpen "c:\tianqiju.mp3" For Binary Access Write As #1vtData = Inet1.GetChunk(1024, icByteArray)Do While UBound(vtData) >0DoEventsPut #1, , vtDatavtData = Inet1.GetChunk(1024, icByteArray)LoopPut #1, , vtDataClose #1MsgBox "下载完毕"End IfEnd Sub点击按钮就会下载一首歌到你的C盘，你可以改成其他东西。

下载文件的话你要到这个名称空间找都这个函数

System.Net.WebClient.DownloadData(ByVal

String)

As

Byte(

)

--下载资源

DownloadData：

Public

Function

DownloadData(ByVal

address

As

String)

As

Byte(

)

System.Net.WebClient

的成员

摘要:

以

System.Byte

数组形式通过指定的

URI

下载资源。

参数:

address:

从中下载数据的

URI。

返回值:

一个

System.Byte

数组，其中包含下载的资源。

异常:

System.Net.WebException:

通过组合

System.Net.WebClient.BaseAddress

和

address

所构成的

URI

无效。-

或

-

下载数据时发生错误。

System.NotSupportedException:

该方法已在多个线程上同时调用。

System.Net.WebClient.DownloadFile(ByVal

String,

ByVal

String)

--下载文件

DownloadFile：

Public

Sub

DownloadFile(ByVal

address

As

String,

ByVal

fileName

As

String)

System.Net.WebClient

的成员

摘要:

将具有指定

URI

的资源下载到本地文件。

参数:

address:

从中下载数据的

URI。

fileName:

要接收数据的本地文件的名称。

异常:

System.Net.WebException:

通过组合

System.Net.WebClient.BaseAddress

和

address

所构成的

URI

无效。-

或

-

filename

为

null

或

System.String.Empty。-

或

-文件不存在。-

或

-

下载数据时发生错误。

System.NotSupportedException:

该方法已在多个线程上同时调用。

---