diff --git a/matlab/mydelete.m b/matlab/mydelete.m
new file mode 100644
index 000000000..3b6d5a93d
--- /dev/null
+++ b/matlab/mydelete.m
@@ -0,0 +1,15 @@
+function mydelete(fname,pname)
+
+if nargin ==0,
+    disp('mydelete(fname)')
+    return
+end
+
+if nargin ==1,
+    pname='';
+end
+
+file_to_delete = dir([pname,fname]);
+for j=1:length(file_to_delete),
+    delete([pname,file_to_delete(j).name]);
+end