| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 项目需求 (http://foxtable.net/bbs/list.asp?boardid=6) ---- 从文件夹中查找文件问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=6&id=57716) |
| -- 作者：hjcslr -- 发布时间：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 最后输出没有这个文件，
|