单独定义一个变量
Dim fl1 As String = "c:\web"
然后代码,改成
Bar.SaveImage(fl1 & "/images/条码.jpg")
------------------或者你的 Dim fl As String = "c:\web\" & e.path
改成 Dim fl As String = projectPath & "web\" & e.path