simul_confusion/Modules/ado/plus/u/usesasdel.ado

26 lines
857 B
Plaintext

*! usesasdel Version 1.1 dan.blanchette@duke.edu 16Mar2009
*! Center of Entrepreneurship and Innovation Duke University's Fuqua School of Business
** usesasdel Version 1.1 dan_blanchette@unc.edu 01Feb2008
** - made the string comparison work for very long strings
** research computing, unc-ch
** usesasdel Version 1.0 dan_blanchette@unc.edu 09Nov2005
** the carolina population center, unc-ch
// can only delete files with no spaces in their names
// but can handle directory names with spaces in their names
program define usesasdel
version 8
args dir basefilename
local files : dir `"`dir'"' files `"`basefilename'*"' , nofail
foreach f in `files' {
local dirf `"`dir'/`f'"'
if `: list local(dir) == local(dirf)' == 0 {
erase `"`dir'/`f'"'
}
}
end
exit