Delete a file: Difference between revisions
Content added Content deleted
(Added Wren) |
|||
Line 639: | Line 639: | ||
Sleep |
Sleep |
||
</lang> |
</lang> |
||
=={{header|Furor}}== |
|||
<lang Furor> |
|||
###sysinclude dir.uh |
|||
// =================== |
|||
argc 3 < { #s ."Usage: " 0 argv print SPACE 1 argv print ." filename\n" end } |
|||
2 argv 'e !istrue { #s ."The given file ( " 2 argv print ." ) doesn't exist!\n" end } |
|||
2 argv removefile |
|||
end |
|||
</lang> |
|||
<pre> |
|||
Usage: furor removefile.upu filename |
|||
</pre> |
|||
<lang Furor> |
|||
###sysinclude dir.uh |
|||
#g argc 3 < { ."Usage: " #s 0 argv print SPACE 1 argv print SPACE ."unnecessary_directory\n" end } |
|||
2 argv 'd !istrue { ."The given directory doesn't exist! Exited.\n" }{ |
|||
2 argv rmdir |
|||
} |
|||
end |
|||
</lang> |
|||
<pre> |
|||
Usage: furor rmdir.upu unnecessary_directory |
|||
</pre> |
|||
=={{header|Gambas}}== |
=={{header|Gambas}}== |