Check that file exists: Difference between revisions

Content added Content deleted

Inline

@@ Line 365: / Line 365: @@
 Console.WriteLine(Directory.Exists("docs"));
 Console.WriteLine(Directory.Exists("/docs"));</lang>
+=={{header|COBOL}}==
+{{works with|GnuCOBOL}} and other compilers with this system call extension
+<lang COBOL>       identification division.
+       program-id. check-file-exist.
+       environment division.
+       configuration section.
+       repository.
+           function all intrinsic.
+       data division.
+       working-storage section.
+skip                 pic 9 value 2.
+file-name.
+value "/output.txt".
+dir-name.
+value "/docs/".
+unusual-name.
+value "Abdu'l-Bahá.txt".
+test-name            pic x(256).
+file-handle          usage binary-long.
+file-info.
+file-size         pic x(8) comp-x.
+file-date.
+file-day       pic x comp-x.
+file-month     pic x comp-x.
+file-year      pic xx comp-x.
+file-time.
+file-hours     pic x comp-x.
+file-minutes   pic x comp-x.
+file-seconds   pic x comp-x.
+file-hundredths  pic x comp-x.
+       procedure division.
+       files-main.
+      *> check in current working dir
+       move file-name(skip:) to test-name
+       perform check-file
+       move dir-name(skip:) to test-name
+       perform check-file
+       move unusual-name to test-name
+       perform check-file
+      *> check in root dir
+       move 1 to skip
+       move file-name(skip:) to test-name
+       perform check-file
+       move dir-name(skip:) to test-name
+       perform check-file
+       goback.
+       check-file.
+       call "CBL_CHECK_FILE_EXIST" using test-name file-info
+       if return-code equal zero then
+           display test-name(1:32) ": size " file-size ", "
+                   file-year "-" file-month "-" file-day space
+                   file-hours ":" file-minutes ":" file-seconds "."
+                   file-hundredths
+       else
+           display "error: CBL_CHECK_FILE_EXIST " return-code space
+                   trim(test-name)
+       end-if
+       .
+       end program check-file-exist.
+</lang>
+{{out}}
+<pre>
+prompt$ cobc -xj check-file-exists.cob
+output.txt                      : size 000000000000000000, 2016-06-01 09:27:14.00
+docs/                           : size 000000000000004096, 2016-06-01 09:27:14.00
+error: CBL_CHECK_FILE_EXIST +000000035 Abdu'l-Bahá.txt
+error: CBL_CHECK_FILE_EXIST +000000035 /output.txt
+error: CBL_CHECK_FILE_EXIST +000000035 /docs/
+prompt$ echo -n >Abdu\'l-Bahá.txt
+prompt$ cobc -xj check-file-exists.cob
+output.txt                      : size 000000000000000000, 2016-06-01 09:27:14.00
+docs/                           : size 000000000000004096, 2016-06-01 09:27:14.00
+Abdu'l-Bahá.txt                 : size 000000000000000000, 2016-06-01 09:33:35.00
+error: CBL_CHECK_FILE_EXIST +000000035 /output.txt
+error: CBL_CHECK_FILE_EXIST +000000035 /docs/</pre>
+Errors due to file and dir not existing in root directory for this test pass
 =={{header|CoffeeScript}}==