Foxtable(狐表)用户栏目专家坐堂 → [求助]移动开发绝对路径


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

主题:[求助]移动开发绝对路径

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2017/4/6 15:42:00 [显示全部帖子]

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

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf"
            e.WriteFile(fl)
    End Select
Else
    Dim sb As New StringBuilder
    sb.Appendline("我想显示一个图片<br/><br/>")
    Select Case e.path
        Case "a.htm"
            sb.AppendLine("<img src='/images/abc.jpg'>")
        Case "sub1\a.htm"
            sb.AppendLine("<img src='/images/abc.jpg'>")
         Case "sub1\sub2\a.htm"
            sb.AppendLine("<img src='/images/abc.jpg'>")
    End Select
    e.WriteString(sb.ToString())
End If

第一个/表示根目录,前面代码红色的部分决定了根目录是那个,这里的根目录是d:\web
/images/abc.jpg就是d:\web\images\abc.jpg

我看不出有难以理解的啊

 回到顶部