以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片提取  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118300)
--  作者：dzz9826
--  发布时间：2018/4/28 13:33:00
--  图片提取
老师好，请问在数据表中有两列，一列为商品编号，一列为图片。当商品号列不为空时，图片列自动提取商品图片目录下的商品图片（以商品编号作为图片名称，但图片格式不一样）。不知如何设计，请老师指点，谢谢！
--  作者：有点甜
--  发布时间：2018/4/28 14:36:00
--  

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

 

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