* Windows DeleteFileA sample code;
* Richard A. DeVenezia;
* http://www.devenezia.com;

filename SASCBTBL catalog 'WORK.WINAPI.WINAPI.SOURCE';

data _null_;

  file SASCBTBL;

  input ;
  put _infile_;
cards4;
routine DeleteFileA
   module=KERNEL32
   minarg=1
   maxarg=1
   stackpop=called
   returns=long
;

arg 1 input char format=$cstr200.;   * filename ;
;;;;

data _null_;
  file 'c:\temp\deleteme.dat';
  put 'delete me';
  stop;
run;

%put deleteme exists = %sysfunc(fileexist (c:\temp\deleteme.dat));

data _null_;
  rc = modulen ('DeleteFileA', 'c:\temp\deleteme.dat');
  put rc=;
run;

%put deleteme exists = %sysfunc(fileexist (c:\temp\deleteme.dat));