Foxtable(狐表)用户栏目专家坐堂 → [求助]读取未知名称的图片


  共有1779人关注过本帖树形打印复制链接

主题:[求助]读取未知名称的图片

美女呀,离线,留言给我吧!
OKK
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
[求助]读取未知名称的图片  发帖心情 Post By: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张图片?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/15 10:04:00 [只看该作者]

循环文件夹所有文件,获取文件名

 

http://www.foxtable.com/webhelp/scr/0331.htm

 


 回到顶部
美女呀,离线,留言给我吧!
OKK
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2019/3/15 12:06:00 [只看该作者]

明白,谢谢图片点击可在新窗口打开查看

 回到顶部