参考代码,必须现在,最后再上传
http://www.foxtable.com/webhelp/scr/1410.htm
Dim ftp1 As New FtpClient
Dim fileName As String = "/JLZL2018/" & "AA.docx"
ftp1.Host="*****"
ftp1.Account = "**"
ftp1.Password = "***"
If ftp1.Download(fileName,"d:\test.docx", False) Then
Dim app As New MSWord.Application
Try
Dim doc = app.Documents.Open("d:\test.docx")
app.Documents(fileName).ExportAsFixedFormat("d:\ttt.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
app.Quit
Catch ex As Exception
msgbox(ex.message)
app.Quit
End Try
End If