主题：图片提取

老师好，请问在数据表中有两列，一列为商品编号，一列为图片。当商品号列不为空时，图片列自动提取商品图片目录下的商品图片（以商品编号作为图片名称，但图片格式不一样）。不知如何设计，请老师指点，谢谢！

循环文件夹的每一个文件，得到文件名，如

 

Dim path As String = "d:\"
Dim file As String = "test"
For Each f As String In FileSys.GetFiles(path)
    If FileSys.GetName(f).contains(file & ".") Then
        msgbox(f)
    End If
Next