blob: 772cff98a9adebcef09c7a0ee3148a1e04d30c6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
function SCI2Cmdelete(InFile);
// function SCI2Cmdelete(InFile);
// -----------------------------------------------------------------
// Deletes the input files only if the file really exists.
// This avoids the issuing of the error generated by mdelete.
//
// Input data:
// InFile: full path of the file to be deleted.
//
// Output data:
//
// Status:
// 12-Apr-2007 -- Nutricato Raffaele: Author.
// -----------------------------------------------------------------
[Inx,Inierr]=fileinfo(InFile)
if Inierr == 0
mdelete(InFile);
end
endfunction
|
