关于vb:下载的文件与FTP的原文件不一致win7正常win10不正常

'FTP下载文件
Public Function DownLoadFile(IP As String, FileName As String, LocalFileName As String, UserName As String, PassWord As String, ByVal FtpSubdirectory As String) As Boolean

    On Error GoTo f_Error    Dim Ret As Boolean    Dim FTP_FileName As String[url]https://www.douban.com/doulist/136131176/[/url]

[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]
[url]https://book.douban.com/douli...[/url]
[url]https://movie.douban.com/doul...[/url]
[url]https://www.douban.com/doulis...[/url]
[url]https://m.douban.com/doulist/...[/url]