主题：[讨论]条码机DLL控件需要放在PUBLISH的根目录下，有没有办法实现？

这两天一直在测试下面代码，发现可以拷贝到开发版源项目根目录下，但对发布项目一直不能拷贝到根目录下，请大师们帮忙看下代码错在哪里？

If FileSys.FileExists(ProjectPath & "OpenPOP.dll") = False Or FileSys.FileExists(ProjectPath & "MIMEParser.dll") = False Then
  
    Dim yslj1 As String
    Dim upathPub As String
    If FileSys.DirectoryExists(ProjectPath & "附件") = False
        yslj1 = ProjectPath & "Project"
        upathPub = ProjectPath & ".."
    Else
        yslj1 = ProjectPath & "附件"
        upathPub = ProjectPath
    End If
    FileSys.CopyFile(yslj1 & "\OpenPOP.dll", upathPub & "OpenPOP.dll",True)
    FileSys.CopyFile(yslj1 & "\MIMEParser.dll", upathPub & "MIMEParser.dll",True) 
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:附件打包.zip

原来如此，那请教下大师，那发布项目的根目录又如何用代码表达出来？谢谢。

可能是我的项目保存的路径比较复杂，试了下还是不能到发布项目根目录下，BIN大师，受你的代码启发，我用下面代码为何还是去不掉路径中的“project”字符？

Dim s As String = ProjectPath
s = s.Trim("project")
MESSAGEBOX.Show(s)

终于搞定，谢谢大师指点。