VB.Net实现Ftp下载的方法

xwqjamky

于 2007-11-27 21:10:00 发布

阅读量2.3k

点赞数

分类专栏： winform vb.net 文章标签： vb.net exception ftp服务器 socket byte buffer

本文链接：https://blog.youkuaiyun.com/xwqjamky/article/details/1904713

版权

本文介绍了如何使用VB.Net进行FTP文件下载，包括设置二进制模式、创建数据连接、续传功能等步骤，详细展示了DownloadFile方法和CreateDataSocket方法的实现过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

调用方式：

DownloadFile("abc.rar","d:/abc.rar","Flase") ' 3个参数分别为远程ftp的文件名、保存到本地的完整路径、是否续传

功能函数：

   Public Sub DownloadFile(ByVal Str_RemoteFileName As String, _
                               ByVal Str_LocalFileName As String, _
                               ByVal Bool_Resume As Boolean)
        Dim Data_St As Stream
        Dim output As FileStream
        Dim LobSocket As Socket
        Dim offset, npos As Long
        If (Not Logined()) Then
            Logined()
        End If
        SetBinaryMode(True)
        If (Str_LocalFileName.Equals("")) Then
            Str_LocalFileName = Str_RemoteFileName
        End If

        If (Not (File.Exists(Str_LocalFileName))) Then
            Data_St = File.Create(Str_LocalFileName)
            Data_St.Close()
        End If

output = New FileStream(Str_L