| Playing with Scan Codes |
| QTIPS - Compiling Protection Code |
| QTIPS - Invalid Code and Command |
| QTIPS - Code/Command Help |
| Compiling 64K on a Shoestring by Blaise Wrenn (LexStat Systems Ltd) |
| Reader's Clinic - Functions and Subroutines |
| Reader's Letters - Jim Owen |
| Playing with Scan Codes |
| Argument passing - Subroutines and Functions - Mike Pope |
| Reader's Clinic - Line Length > 256 Characters |
| QTIPS - String Space |
| QTIPS - String Space Format Errors |
| Reader's Forum - Numeric Precision in R/Basic - Hal Wyman |
RevMedia FKB
| Document | V1I10A9 |
| Title | Directory Exists on Novell |
| Keywords | NETWORK OSOPEN STATUS OSWRITE OSDELETE DIRECTORY NOVELL |
| Text | Following on FROM an earlier article in which we showed how to check for the existence of a directory USING OSOPEN and STATUS() Claudio Aretusi of Michael D Atkin & Associates has submitted the following code to check for the existence of a directory under Novell (OSOPEN wouldn't work here as we are not interfacing WITH DOS anymore) FUNCTION CHECKDIR(DIR) * * Author Claudio Aretusi * Date November 2 1989 * Purpose To check if given directory exists * DECLARE FUNCTION UNASSIGNED IF UNASSIGNED(DIR) THEN DIR = "" * Normalise directory string to end in '\' DIR := '\' SWAP '\\' WITH '\' IN DIR OSWRITE 'DUMMY' TO DIR : "MDATEST XXX" STAT = STATUS() IF STAT = 0 THEN * File created OK dir exists so delete test file OSDELETE DIR : "MDATEST XXX" RETURN 1 END ELSE * File not created dir does not exist RETURN 0 END (Volume 1 Issue 10 Page 10) |
Page last modified: 17/02/03