以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  从文件夹中查找文件问题？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57718)
--  作者：hjcslr
--  发布时间：2014/9/29 20:18:00
--  从文件夹中查找文件问题？
从文件夹中查找文件问题？  发帖心情 Post By：2014-9-29 20:08:00 [只看该作者] 

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

最后输出没有这个文件，
--  作者：有点甜
--  发布时间：2014/9/29 20:22:00
--  
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
[此贴子已经被作者于2014-9-29 20:22:17编辑过]
--  作者：hjcslr
--  发布时间：2014/9/29 22:28:00
--  
谢谢
--  作者：451355225
--  发布时间：2019/3/25 15:35:00
--  
我在命令窗口中测试不成功，请教专家帮忙解答一下，谢谢！
--  作者：有点甜
--  发布时间：2019/3/25 16:03:00
--  
以下是引用451355225在2019/3/25 15:35:00的发言：
我在命令窗口中测试不成功，请教专家帮忙解答一下，谢谢！

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=132586