Dim str As String
Dim strLuJing As String
Dim strLuJingJian As String '监视文件夹路径
Dim mingZi As WinForm.TextBox = e.Form.Controls("TextWenJianMing")
str = mingZi.Text
Dim ro As Row
Dim ftp1 As new ftpclient
ftp1.host="192.168.1.107"
ftp1.Account = "sara"
ftp1.Password = "123456"
ftp1.UTF8 = True
Dim strDes As String
If Vars("nType")=0 Then 'word
str = str &".docx"
Dim app As New MSWord.Application
app.DisplayAlerts = False
try
Dim dic = app.Documents.add
strLuJing="d:\Download1\"&str
dic.SaveAs(strLuJing)
app.Quit
strLuJingJian ="d:\Download2\"&str
If FileSys.FileExists(strLuJing) Then
system.Threading.Thread.sleep(1000)
If FileSys.FileExists(strLujingjian) Then FileSys.DeleteFile(strLuJingJian, 2, 2)
FileSys.MoveFile(strLuJing,strLuJingJian)
End If
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
ro = Tables("文档信息").AddNew
ro("名称") = str
strDes = "/" & str
ftp1.Upload(strLujingjian,strDes)
加好友 
发短信
Post By：2017/8/28 10:29:00 [显示全部帖子]
此主题相关图片如下：1.png