主题：图片提取

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

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