VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net上传文件到服务器,vb.net上传文件到FTP服务器

上传文件到ftp服务器整理:

声明:以下代码为vb.net代码,使用Visual Studio 2008开发,所有代码均通过测试,可以直接使用。欢迎转载,请注明出处,欢迎拍砖。

web.config 文件配置, 将用户名,密码和ftp服务器的地址存放到web.config文件:

文件上传步骤:

1.读取文件到一个FileStream

2.设置ftp服务器访问信息,主要是ftp服务器地址,访问ftp服务器的用户名和密码,访问类型,等待时间等待。

3.在ftp服务器中创建一个空的文件

3.将源文件读取到byte()数组中

4.将byte()数组中存放的数据写入到另外一个Stream, 这个stream是我们刚在ftp服务器上创建的空文件

5.完成写入

以下是文件上传代码:

'''

''' upload txt file to specified destination.

'''

'''

Private Sub uploadFileByFTP()

'is uploaded

Dim isUploaded As Boolean = False

'File path

Dim fi As New FileInfo(Server.MapPath(".").ToString & "\TestFileFolder\" & strFileName)

'Create a file in the ftp file server

Dim reqObj As System.Net.FtpWebRequest

reqObj = DirectCast(System.Net.WebRequest.Create(ConfigurationManager.AppSettings("CompleteFTPPath") & fi.Name), System.Net.FtpWebRequest)

'Configure the request methods as uploadfile

With reqObj

.Credentials = New Net.NetworkCredential(ConfigurationManager.AppSettings("UserName"), ConfigurationManager.AppSettings("PassWord"))

.Method = WebRequestMethods.Ftp.UploadFile

.UseBinary = True

.ContentLength = fi.Length

.Timeout = 10 * 1000

End With

Try

Using fsSource As FileStream = New FileStream(Server.MapPath(".").ToString & "\NameplateFile\" & strFileName, FileMode.Open, FileAccess.Read)

' Read the source file into a byte array.

Dim bytes() As Byte = New Byte((fsSource.Length) - 1) {}

' Get the length of the source file

Dim numBytesToRead As Integer = CType(fsSource.Length, Integer)

Dim numBytesRead As Integer = 0

While (numBytesToRead > 0)

' Read may return anything from 0 to numBytesToRead.

Dim n As Integer = fsSource.Read(bytes, numBytesRead, _

numBytesToRead)

' Break when the end of the file is reached.

If (n = 0) Then

Exit While

End If

numBytesRead = (numBytesRead + n)

numBytesToRead = (numBytesToRead - n)

End While

numBytesToRead = bytes.Length

' Write the byte array to the ftp file server

Using fsNew As System.IO.Stream = reqObj.GetRequestStream()

fsNew.Write(bytes, 0, numBytesToRead)

isUploaded = True

End Using

End Using

' upload successfully

File.Delete(Server.MapPath(".").ToString & "\TestFileFolder\" & strFileName)

If isUploaded = True Then

lblMsg.Text = "File uploaded successfully!"

Else

lblMsg.Text = ""

End If

Catch ex As Exception

Throw ex

End Try

End Sub

以上是一个简单的上传文件的代码,仅供参考。

相关链接:

create a new FTP site  http://learn.iis.net/page.aspx/301/creating-a-new-ftp-site/

出处:https://blog.csdn.net/weixin_39769627/article/details/119478619?spm=1001.2101.3001.6650.5&utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7ERate-5.pc_relevant_default&depth_1-utm_source=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7ERate-5.pc_relevant_default&utm_relevant_index=10
 


相关教程