bug 3598
[scilab.git] / scilab / modules / fileio / macros / dir.sci
index 6e67fa5..0f431b6 100644 (file)
@@ -13,6 +13,11 @@ function L=dir(str)
        dirtype  = 16384;
        
        if argn(2)==1 then
+       
+    if type(str) <> 10 then 
+      error(999,msprintf(_("%s: Wrong type for input argument #%d: A string expected.\n"),'dir',1));
+    end 
+
                files    = listfiles(str);
                basepath = str;
        else