home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / FILES.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-12-02  |  516 b   |  16 lines
  1.  
  2.     'the array used by the files command must already exist
  3.     dim info$(1, 1)
  4.  
  5.     prompt "Enter a filename to find (example: dos\qbasic.exe)."; fileName$
  6.     files "c:\", fileName$, info$(
  7.  
  8.     if val(info$(0, 0)) > 0 then _
  9.         notice "file c:\" + fileName$ + " exists" _
  10.       else _
  11.         notice "file c:\" + fileName$ + " doesn't exist"
  12.  
  13.     'now display a notice reporting an error if there is one
  14.     if instr("0123456789", left$(info$(0, 0), 1)) = 0 then _
  15.         notice info$(0, 0)
  16.