以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何利用ftp远程指定文件转换pdf  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117526)
--  作者：ZJZK2018
--  发布时间：2018/4/14 1:15:00
--  如何利用ftp远程指定文件转换pdf
老师：
 需求：
1、 如何利用ftp远程在不打开给指定文件（如.doc,.xls等等）转换成pdf
[此贴子已经被作者于2018/4/14 1:15:44编辑过]
--  作者：有点蓝
--  发布时间：2018/4/14 9:09:00
--  
做不到，必须下载，然后转换为pdf，再重新上传
--  作者：ZJZK2018
--  发布时间：2018/4/15 2:38:00
--  
老师你好：

下面这段代码出错了，如何修改？

Dim ftp1 As New FtpClient
Dim fileName As String = "/JLZL2018/" & "AA.docx"
Dim fl As String = "/JLZL2018/"
ftp1.Host="*****"
ftp1.Account = "**"
ftp1.Password = "***"
If ftp1.FileExists(fileName) Then
    
    Dim app As New MSWord.Application
    Try
        \'Dim fileName = "d:\\aa\\bbb.docx"
        Dim doc = app.Documents.Open(fileName)
        app.Documents(fileName).ExportAsFixedFormat(fl & "ttt.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
        app.Quit
    Catch ex As Exception
        msgbox(ex.message)
        app.Quit
    End Try
    
End If
--  作者：有点甜
--  发布时间：2018/4/15 9:39:00
--  

参考代码，必须现在，最后再上传

 

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