主题：[求助]判断图片是否存在

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
Select Case e.Path
    Case "test.htm"
        Dim wb As new WeUI
        With wb.AddGallery("","gla1")
            .AddImage("./images/001.jpg","./images/002.jpg","./images/003.jpg","./images/004.jpg")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

我测试这段代码，并没有报错。没有的图片，显示是空白的黑色背景。

判断是否存在，参考代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As new WeUI
        With wb.AddGallery("","gla1")
            Dim ary()As String = {"/images/001hkjh.jpg","/images/jhk002.jpg","/images/001.jpg","/images/jhj004.jpg"}
            Dim str As String = "c:\web"
            For Each s As String In ary
                If filesys.FileExists(str & s)
                    .AddImage(s)
                End If
            Next
        End With
        e.WriteString(wb.Build) '生成网页
End Select

好，谢谢