Fortran Coder

查看: 314|回复: 2

[文件读写] 删除文件夹内所有文件为何为提示?

[复制链接]

42

帖子

15

主题

0

精华

熟手

F 币
161 元
贡献
91 点
发表于 2023-2-23 16:22:50 | 显示全部楼层 |阅读模式
  Inquire(directory='PView_Csv',exist=isExist)
  IF(isExist) Then
     Call system("del .\PView_Csv")
     !Call system("del .\PView_Csv\*")
     !Call system("del .\PView_Csv\*.csv")
     !Call system("rd .\PView_Csv")
  Else
     DirName = "mkdir   "//".\PView_Csv"
     Call system(trim(adjustl(DirName)))
  End IF

我想要的功能是:查询是否存在PView_Csv文件夹。如果存在,则删除其内所有文件。如果不存在,则创建此文件夹。代码如上。但运行上面代码后,却要还输入Y/N。如下图所示
1.PNG
我想要的是直接删除,不再询问Y/N。由于这个文件夹里有很多*.csv文件,所以我就尝试了     !Call system("del .\PView_Csv\*.csv") 这行代码,可以直接把所有*.csv文件删除。但我觉得需要把这个文件夹里的所有类型文件,都按照这样来一行一行地写出来,才能删除干净,似乎是麻烦了些。后来我又尝试了     !Call system("del .\PView_Csv\*") 这行代码,同样会询问Y/N。就想请教大家,有没有命令可以直接把这个文件夹内的所有文件全部删除,不再询问Y/N。我尝试了     !Call system("rd .\PView_Csv")不起作用,因为这个文件夹里有文件的话,这行代码不能执行。



211

帖子

2

主题

0

精华

宗师

F 币
1546 元
贡献
799 点

规矩勋章

发表于 2023-2-25 17:54:13 | 显示全部楼层
del/?可以查看帮助
/Q            安静模式。删除全局通配符时,不要求确认
试试这个选项
del/q .\PView_Csv\*.csv

评分

参与人数 1F 币 +2 收起 理由
fcode + 2

查看全部评分

42

帖子

15

主题

0

精华

熟手

F 币
161 元
贡献
91 点
 楼主| 发表于 2023-2-28 14:52:52 | 显示全部楼层
necrohan 发表于 2023-2-25 17:54
del/?可以查看帮助
/Q            安静模式。删除全局通配符时,不要求确认
试试这个选项

非常感谢,我试试
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2023-3-24 01:56

Powered by Tencent X3.4

© 2013-2023 Tencent

快速回复 返回顶部 返回列表