通过程序遍历指定文件夹中的所有某一类型文件,并根据名字关键字寻找所需文件。
Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Dim allfiles As String() = Directory.GetFiles(folder_path, "*.txt") '---------列出目录(folder_path)下所有.txt文件,文件类型根据需求设置,遍历所有文件时为"*.*"
Dim singlefile As String'----------singlefile:单个文件
For Each singlefile In allfiles
If singlefile.Contains("keyword") Then'----------文件名中包含“keyword”
msgbox("file is "+singlefile)
End If
Next