老师，

  帮助文档中，标黄色的部分，照片的位置什么写法，不是很明白，好像帮助文档未说明。

Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)   省略
   ...End If

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传") \'文件上传
            .AddUploader("up1","")
        End With
        With wb.AddInputGroup("form1","ipg22","文件上传") \'带图片浏览的文件上传
            With .AddUploader("up2","图片",True) \'True表示允许一次上传多个文件
                .AddImage("./images/001.jpg")

参考

http://www.foxtable.com/mobilehelp/scr/0044.htm

能否写全呢 例如

.AddImage(ProjectPath & “\\images\\001.jpg")

不可以，images必须在web文件夹下，路径必须用相对路径。

当然，你web文件夹可以放在项目里面。改一下第一行代码就行了。

images文件夹不会自动生成的。

迷糊了

一楼的帮助文档的代码意思是图片路径在  d:\\web\\images\\001.jpg？

我的 第一行代码 是这样写的

Dim fl As String = ProjectPath & e.path

怎么 定义 这个 图片位置

e.path 下面 手动建立了一个 images 文件夹