求vb上传文件到服务器并可以下载过来的例题
求vb上传文件到服务器并可以下载过来的例题
求vb上传文件到服务器并可以下载过来的例题
求vb上传文件到服务器并可以下载过来的例题
求vb上传文件到服务器并可以下载过来的例题
解决方案 »
- 在VB中如何访问USB端口?
- 在简体环境下编写繁体软件 数据库中的字符是繁体的用ado读取在繁体操作系统下不能正确显示字符
- 在窗体上显示一个二维表的问题--------------------在线等待
- 怎样用word打开指定的word文件?怎样打开bmp文件(用系统默认的程序打开)?怎样打CAD文件(用autoCAD打开)?
- 同时移动问题
- VB如何让程序自动关闭网页弹出的对话框
- 散分:请谈谈搞软件作什么有前途,大家都想如何发展
- 一个vb连sqlserver的问题
- VB什么时候才能够出NEW VERSION?
- 请问vb的类中是否可以调用MDI窗体
- VB窗口顺序!
- VB6.0 水晶报表 Format事件问题
下载'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()
上传[VB.NET]
'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()
Private Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPrivate Sub Command1_Click()
URLDownloadToFile 0, "http://www.baidu.com/img/baidu_logo.gif", App.Path & "\a.gif", 0, 0End Sub