主题：只导入。jpg 文件，该怎么办？

再下面这段代码中 我只想导入。jpg 文件，不想导入其他文件，该怎么办？

Dim Val As String
For Each File As String In FileSys.GetFiles("f:\图片")
    Dim f As Io.FileInfo =   FileSys.GetFileInfo(File)
    Val = Val & "|" & f.Name
Next
Dim Values() As String
Values = Val.split("|")
For Index As Integer = 0 To Values.Length - 1
    Dim r As Row = Tables("newmoo_product").AddNew
    Dim s As Row = Tables("shop").AddNew
    s("商品原始图片") = Values(Index)
    r("ppp") = Values(Index)
Next