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

静待花开

  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

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

静待花开

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

非常感谢，我试试