For Each Files As String In FileSys.GetDirectories("e:\") For Each File As String In FileSys.GetFiles(Files) Dim drr01 As String = FileSys.GetName(File) Dim drr02 As String = "12345.txt" If drr01 = drr02 Then Output.Show(File) FileSys.CopyFile(File , "d:\temp\1.txt",True) '将文件导入D盘文件夹中 Else End If Next Next