在BeforeAddFile事件中的程序如下：
e.DataCol.FTPClient.Host=ftphost
e.DataCol.FTPClient.Password=ftppassword
e.DataCol.FTPClient.Account=Ftpaccount
Dim mlm As String="/系统资料"
If e.DataCol.FTPClient.DirExists(mlm)=False Then e.DataCol.FTPClient.MakeDir(mlm)
mlm=mlm & "/确认样"
If e.DataCol.FTPClient.DirExists(mlm)=False Then e.DataCol.FTPClient.MakeDir(mlm)
mlm= mlm & "/" & e.DataRow("工厂款号")
If e.DataCol.FTPClient.DirExists(mlm)=False Then e.DataCol.FTPClient.MakeDir(mlm)
e.DataCol.FTPClient.RootDir=mlm
在BeforeAttachFile事件中程序如下：
Select Case e.DataCol.Name
Case "图片","附件"
e.Subfolder = "/系统资料/确认样/" & e.DataRow("工厂款号")
' e.DataCol.FTPClient.RootDir="/系统资料/确认样/" & e.DataRow("工厂款号")
End Select
打开附件传送文件，目录是正确的；但是在图片列传文件目录就是错的？问题出在哪呢？谢谢
加好友 
发短信
Post By：2015/6/15 6:13:00 [只看该作者]
此主题相关图片如下：xx1.jpg
