主题：ftp 文件 另存 打开 报错.

    Dim ftp As New FTPClient
    ftp.host=vars("FTP_ip地址")
    ftp.Account =vars("FTP_账号")
    ftp.password =vars("FTP_密码")
    ftp.Port= vars("FTP_端口")
  '  ftp.RootDir = "\图片文件\" & n '设置根目录
    If ftp.Download(e.FileName,"e:\downpdf.pdf") = True Then
        Dim fn As String = "e:\downpdf1.pdf"
        e.FileName = fn
    End If