主题：从文件夹中查找文件问题？

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

最后输出没有这个文件，