diff options
Diffstat (limited to 'src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci')
| -rw-r--r-- | src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci b/src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci new file mode 100644 index 00000000..772cff98 --- /dev/null +++ b/src/Scilab2C/GeneralFunctions/SCI2Cmdelete.sci @@ -0,0 +1,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
|