主题：移动开发显示已有静态网页问题,求教

1、最前面要写

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",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

2、你要把你的html、jpg、css等文件拷贝到红色的文件夹那里去

Dim fl As String = "d:\web\"

可以用文件夹管理的的，你可以尝试新建一个文件夹，然后把html、jpeg等放在同一个文件夹，即可。