求vb2005读取/下载/上传ftp代码

[想飞的狼]

求vb2005读取/下载/上传ftp代码


请高手帮忙，越详细越好

[chyyyin]

其实就是一个Socket通信的问题，用UDP协议应该可以满足数据传输需求！
支持~楼主加油！

[wuyq11]

参考

[bw555]

'下载
Dim dfile As New WebClient
dfile.DownloadFile(Me.M_Url, Me.M_FileName)
'上传
Dim dfile As New WebClient
dfile.UploadFile(Me.M_Url, Me.M_FileName)
'获得ftp文件大小
Dim reqFtp As FtpWebRequest
reqFtp = CType(FtpWebRequest.Create(New Uri(url)), FtpWebRequest)
reqFtp.Proxy = Nothing
reqFtp.Method = WebRequestMethods.Ftp.GetFileSize
Dim response As WebResponse
response = reqFtp.GetResponse()
Return response.ContentLength()

[outou]

参考下面的代码。来自http://bingning.net/VB/SOURCE/internet/ftpwebclient.html
下载代码

'WebClient对象作成
 Dim wc As New System.Net.WebClient()
 '指定用户名和密码
 wc.Credentials = New System.Net.NetworkCredential("username", "password")
 '从FTP服务器下载
 wc.DownloadFile("ftp://localhost/test.txt", "C:\test.txt")
 '释放资源
 wc.Dispose()

上传代码

'WebClient对象作成
 Dim wc As New System.Net.WebClient()
 '指定用户名和密码
 wc.Credentials = New System.Net.NetworkCredential("username", "password")
 '向FTP服务器上传文件
 wc.UploadFile("ftp://localhost/test.txt", "C:\test.txt")
 '释放资源
 wc.Dispose()

[chyyyin]

学习~

[qshurufa]

路过

[yifan__]

收藏~~

[yifan__]

收藏~~

[sunshine_anycall]

mark

[chyyyin]

的确，试过了，WebClient这个类真是好啊！直接有上传，下载的方法！

[Roc_Lee]

WebClient
使用这个类，自己有相关方法

[想飞的狼]

thanks

[zoucaiwang0402]

Try
Dim MyRequest As System.Net.FtpWebRequest = CType(System.Net.WebRequest. _
Create("ftp://www.163.com/1.swf"), _
System.Net.FtpWebRequest)
MyRequest.Credentials = New System.Net.NetworkCredential( _
"username", "password")
Dim MyResponse As System.Net.FtpWebResponse = _
CType(MyRequest.GetResponse(), System.Net.FtpWebResponse)
Dim MyData As System.IO.Stream = MyResponse.GetResponseStream()
Dim MySavePath As String = "1.swf"
If (System.IO.File.Exists(MySavePath)) Then
System.IO.File.Delete(MySavePath)
End If
Dim MyBuffer(4096) As Byte
Dim MyStream As New System.IO.FileStream( _
MySavePath, System.IO.FileMode.CreateNew)
Dim Count As Integer = 0
Count = MyData.Read(MyBuffer, 0, MyBuffer.Length)
While (Count > 0)
MyStream.Write(MyBuffer, 0, Count)
Count = MyData.Read(MyBuffer, 0, MyBuffer.Length)
End While
MessageBox.Show("文件下载操作完成！", "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try