Check that file exists: Difference between revisions

In this task, the job is to verify that a file called "input.txt" and the directory called "docs" exist. This should be done twice: once for the current working directory and once for a file and a directory in the filesystem root.

#include <sys/types.h>

#include <sys/stat.h>

}

if exist input.txt echo The following file called input.txt exists.

if exist \input.txt echo The following file called \input.txt exists.

if exist \docs\ echo The following directory called \docs\ exists.

: .exists ( str len -- ) 2dup file-status nip 0= if type ." exists" else type ." does not exist" then ;

}

-- Here

doesFileExist "input.txt"

(getDirectories "C:\docs").count == 1

// List of files.

$files = array('./input.txt','./docs','/input.txt','/docs');

}

use File::Spec::Functions qw(catfile rootdir);

# here

perl -e 'print -d "/docs", "\n";'

sys_file_exists('input.txt') =>

enddefine;

'''Interpreter:''' [[Python]] 2.5

os.path.exists("/docs")

'input.txt' exists if 'input.txt exists' print

'/docs' isdir if '/docs exists and is a directory' print

"Smalltalk has no notion of 'current directory' because Smalltalk isn't tied to the shell that created it."

(FileDirectory on: 'c:\') directoryExists: 'docs'.

Taking the meaning of the task from the DOS example:

if { [file isdirectory [file nativename /docs]] } { puts "/docs exists and is a directory" }

[ "R" file.open dup 0 <> [ dup file.close ] ifTrue 0 <> ] is exists?

" /docs" exists? .

'''Platform:''' [[.NET]]