Foxtable(狐表)用户栏目专家坐堂 → 从文件夹中查找文件问题?


  共有3136人关注过本帖树形打印复制链接

主题:从文件夹中查找文件问题?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/25 16:03:00 [显示全部帖子]

以下是引用451355225在2019/3/25 15:35:00的发言:
我在命令窗口中测试不成功,请教专家帮忙解答一下,谢谢!

 

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

 


 回到顶部