Foxtable(狐表)用户栏目专家坐堂 → 删除指定文件夹下的所有文件夹及文件


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

主题:删除指定文件夹下的所有文件夹及文件

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


加好友 发短信
等级:三尾狐 帖子:672 积分:7861 威望:0 精华:0 注册:2016/6/11 11:10:00
删除指定文件夹下的所有文件夹及文件  发帖心情 Post By:2019/10/21 16:30:00 [只看该作者]

我想在窗口中建立一个按钮,点击这个按钮就删除项目下名为“临时文件”的文件夹下所有文件(这个“临时文件”不用删除,只删除它里面的所有文件),不知道代码怎么写,谢谢了

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/21 16:46:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7861 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2019/10/21 17:09:00 [只看该作者]

    Dim pth As String = ProjectPath & "AllMyFiles\检验科\"
    For Each File As String In FileSys.GetFiles("& pth &")
        FileSys.DeleteFile("File",2,2)
    Next

麻烦老师帮修改一下?


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/21 17:16:00 [只看该作者]

FileSys.DeleteFile(File,2,2)

 回到顶部