Delete All files with a specific extension

[texasmfp]

Each month I create roughly 200 Excel files, 100 files are the old school "XLS" Excel files, then those files are turned into new "XLSX" files.

So there are two files with identical names, but with different extensions.  I want to delete all of the "XLS" files but not the "XLSX" files.   Each month the file names are different.

[Oligolas · Accepted solution]

Hi,

if you do not need to double check if the *.xlsx exists before deleting the *.xls you could simply use the x command:

x "del ""YourPath\*.xls""";

[texasmfp]

That works with some modifications to my program.  Thanks

[Ksharp]

%let path= c:\temp\a  ;


data _null_;
rc=filename('x',"&path.");
did=dopen('x');
do i=1 to dnum(did);
  fname=dread(did,i);
  if upcase(scan(fname,-1,'.'))='XLS' then do;
    rc=filename('y',cats("&path.\",fname));
	rc=fdelete('y');
  end;
end;
did=dclose(did);
run;

[texasmfp]

Thanks, that works as well