删除文件夹内所有文件为何为提示？

静待花开 · 发表于 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。如下图所示

我想要的是直接删除，不再询问Y/N。由于这个文件夹里有很多*.csv文件，所以我就尝试了 !Call system("del .\PView_Csv\*.csv") 这行代码，可以直接把所有*.csv文件删除。但我觉得需要把这个文件夹里的所有类型文件，都按照这样来一行一行地写出来，才能删除干净，似乎是麻烦了些。后来我又尝试了 !Call system("del .\PView_Csv\*") 这行代码，同样会询问Y/N。就想请教大家，有没有命令可以直接把这个文件夹内的所有文件全部删除，不再询问Y/N。我尝试了 !Call system("rd .\PView_Csv")不起作用，因为这个文件夹里有文件的话，这行代码不能执行。

necrohan · 发表于 2023-2-25 17:54:13

del/?可以查看帮助
/Q 安静模式。删除全局通配符时，不要求确认
试试这个选项
del/q .\PView_Csv\*.csv

静待花开 · 发表于 2023-2-28 14:52:52

necrohan 发表于 2023-2-25 17:54
del/?可以查看帮助
/Q 安静模式。删除全局通配符时，不要求确认
试试这个选项

非常感谢，我试试

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

评分

规矩勋章