通过程序遍历指定文件夹中的所有某一类型文件，并根据名字关键字寻找所需文件。

 

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

————————————————

版权声明：本文为CSDN博主「西伯利亚二贼狼」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/weixin_47394240/article/details/124223557