- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]读取未知名称的图片 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132153)
-- 发布时间：2019/3/15 9:26:00
-- [求助]读取未知名称的图片
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张图片？
-- 发布时间：2019/3/15 10:04:00
--
循环文件夹所有文件，获取文件名
http://www.foxtable.com/webhelp/scr/0331.htm
-- 发布时间：2019/3/15 12:06:00
--
明白，谢谢
