主题：[讨论]移动开发例子不可用

1、先看12楼；

2、你执行什么代码报错？保存文件的时候？是否你合成的路径有问题？

测试看弹出什么

msgbox(fl1)

msgbox(fl)

e.SaveFile(key,fl1,"c:\web\uploadfiles\" & fl)

参考代码

Select Case e.path
    Case "test.htm"
        Dim wb As New WeUI
  
        wb.AddForm("","form1","accept.htm")
        With wb.AddInputGroup("form1","ipg1")
            .Attribute = "style='margin-top:5px'"
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
        wb.insertHtml("form1","单文件上传: <input type='file' name='up1' id='up1'><br/><br/>")
        wb.insertHtml("form1","多文件上传: <input type='file' name='up2' id='up2' multiple><br/><br/>")
        wb.insertHtml("form1","<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build)
    Case "accept.htm"
        Dim sb As New StringBuilder
        For Each key As String In e.Files.Keys
            sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
            For Each f As String In e.Files(key)
                sb.AppendLine(f & "<br>")
                e.SaveFile(key,f,"d:\web\uploadfiles\" & f) '保存接收到的文件
            Next
            sb.AppendLine("</br>")
        Next
        sb.AppendLine("以上文件服务器已正确接收并保存!")
        e.WriteString(sb.ToString)
End Select