Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","text").value = "舒淇"
.AddInput("地点","地点","text").Value = "蒙古草原"
.AddInput("日期","日期","date").value = #10/12/2012#
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
.AddImage("./images/001.jpg")
.AddImage("./images/002.jpg")
.AddImage("./images/003.jpg")
.AddImage("./images/004.jpg")
.AddImage("./images/005.jpg")
.AddImage("./images/006.jpg")
.AddImage("./images/007.jpg")
.AddImage("./images/008.jpg")
.AddImage("./images/009.jpg")
.AddImage("./images/010.jpg")
.AddImage("./images/011.jpg")
.AddImage("./images/012.jpg")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
根本上面的代码,如果上面的12张图片的名称还没有知道,那么,怎么读取这12张图片?