If vars("ljwjj") = "" Then
Dim ftp As New FtpClient
ftp.Host="124.74.246.244"
ftp.Account = "BUG"
ftp.Password = "BUG"
ftp.ChangeDir("/")
Dim lj As String = "/" & Tables("BUG录入表").current("BUG_ID")
If ftp.DirExists(lj) = False Then '不存在临时版本编号目录时先创建临时版本编号目录
ftp.MakeDir(lj)
End If
Dim ml As String = lj & "/" & Format(Date.now, "yyyy-MM-dd HH-mm-ss")
If ftp.DirExists(ml) = False Then '按照系统时间来创建时间目录
ftp.MakeDir(ml)
End If
Tables("BUG录入表").current("附件目录") = ml
vars("ljwjj") = ml
ftp.Close
Else
vars("ljwjj") = Tables("BUG录入表").current("附件目录")
Functions.Execute("BUGlistview")
End If
我的附件目录是ml。
发送邮件希望把ml下的文件作为邮箱的附件。
m.AddAttachments(r("附件目录"))-----这个怎么写？
加好友 
发短信
Post By：2017/8/11 16:01:00 [只看该作者]
