home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_08 / 2n08023a < prev    next >
Text File  |  1991-07-01  |  821b  |  35 lines
  1.         'Listing 2 - EXIST.BAS
  2.         'Checks for existence of a file.
  3.     
  4.         DEFINT A-Z
  5.         '$INCLUDE: 'qb.bi'
  6.         DECLARE FUNCTION Exist (FileSpec$)
  7.  
  8.         INPUT "Enter desired file spec: ", FileSpec$
  9.         IF Exist(FileSpec$) THEN
  10.            PRINT FileSpec$ + " exists."
  11.         ELSE
  12.            PRINT FileSpec$ + " not found."
  13.         END IF
  14.         END
  15.  
  16. FUNCTION Exist (FileSpec$)
  17.  
  18.         DIM Regs AS RegTypeX
  19.  
  20.         Temp$ = FileSpec$ + CHR$(0)
  21.         Regs.ax = &H4E00                       'Find first matching file
  22.         Regs.cx = 0
  23.         Regs.ds = VARSEG(Temp$)
  24.         Regs.dx = SADD(Temp$)
  25.         CALL InterruptX(&H21, Regs, Regs)
  26.  
  27.         IF Regs.ax AND 255 THEN
  28.            Exist = 0
  29.         ELSE
  30.            Exist = -1
  31.         END IF
  32.  
  33. END FUNCTION
  34.  
  35.