主题：请教：上传附件问题

Dim fl As String = "C:\foxtable\商业版\CaseStudy\自定义用户管理.foxdb"

Syscmd.Project.Open(fl, ProjectFile, "其它参数")

 

----------------------

 

AfterOpenPojrct事件

 

If OpenFileargs.Count = 2 Then '如果传递了两个参数

    msgbox(openFileargs(0))

    msgbox(openFileargs(1))

End If