Check that file exists: Difference between revisions

Content added Content deleted
No edit summary
Line 1,409: Line 1,409:
end
end
end</lang>
end</lang>
=={{header|M2000 Interpreter}}==

<lang M2000 Interpreter>
Module ExistDirAndFile {
Let WorkingDir$=Dir$, RootDir$="C:\"
task(WorkingDir$)
task(RootDir$)
Dir User ' return to user string
Sub task(WorkingDir$)
Local counter
Dir WorkingDir$
If Not Exist.Dir("docs") then Report "docs not exist in "+WorkingDir$ : counter++
If Not Exist("output.txt") Then Report "output.txt not exist in "+ WorkingDir$ : counter++
If counter =0 then Report WorkingDir$+ " has docs directory and file output.txt"
End Sub
}
ExistDirAndFile
</lang>


=={{header|Maple}}==
=={{header|Maple}}==