专家坐堂-[求助]上传FTP文件时如何自动更改名称Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "附件"

If e.NewValue IsNot Nothing Then

Dim tx As String = e.NewValue

Dim tx1 As String \'赋值斜杠前的字符

Dim tx2 As String \'赋值文件后缀名

Dim xm As String \'赋值文件新名称

Dim rq As Date \'赋值单据日期

Dim ftp As new FTPClient

ftp = e.DataCol.FTPClient

If ftp.FileExists(e.NewValue) = True Then \'如果文件已存在(已上传)

Dim a As DataRow = DataTables("物流发货记录").Find("_identify = " & e.DataRow("sys_物流内码") & "") ‘查找客户简称

If a IsNot Nothing Then

If Tables("物流发货记录_Table3").Rows.Count > 0 Then

rq = Tables("物流发货记录_Table3").Rows(0)("单据日期") ‘查找单据日期

End If

tx1 = tx.SubString(0,tx.LastIndexOf("/") + 1)

tx2 = tx.SubString(tx.LastIndexOf("."))

If e.DataRow.IsNull("单据号码") = False \'如果不为空

xm = tx1 & a("单位简称") & "_" & e.DataRow("单据号码") & "_" & rq & tx2 ‘单据号码命名

Else

xm = tx1 & a("单位简称") & "_" & e.DataRow("发票号码") & tx2 ‘发票号码命名

End If

\'MessageBox.Show("改名:" & xm)

If ftp.Rename(e.NewValue,xm) = True Then \'如果改名成功

e.NewValue = xm

Else

MessageBox.Show(e.DataRow("单据号码") & e.DataRow("发票号码") & " 变更附件名称失败!")

End If

Else

MessageBox.Show("未找到公司简称!")

End If

Else

\'删除附件

Dim ftp As new FTPClient

ftp = e.DataCol.FTPClient

If ftp.FileExists(e.DataRow(e.DataCol.Name)) = True Then \'如果文件存在

If ftp.DeleteFile(e.DataRow(e.DataCol.Name)) = False \'删除文件

MessageBox.Show(e.DataTable.Name & " 表 " & e.DataRow("单据号码") & e.DataRow("发票号码") & "附件文件删除失败!")

End If