Check that file exists: Difference between revisions

=={{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>