home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST211.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  672 b   |  36 lines
  1. *******************
  2.  
  3. FUNCTION Valid_path
  4.  
  5.    PARAMETERS _pname
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN(.F.)
  9.    ELSEIF TYPE("_pname") != "C"
  10.       RETURN(.F.)
  11.    ENDIF
  12.  
  13.    NOTE This routine only works with the SUMMER 87
  14.    NOTE release and require modification if it is to
  15.    NOTE work with other versions of the compiler
  16.  
  17.    PRIVATE _new, _errway, _file
  18.  
  19.    _file = _pname + "\SST$$$.TXT"
  20.  
  21.    _file = LTRIM(TRIM(STRTRAN(_file, "\\", "\")))
  22.  
  23.    _new = FCREATE(_file, 0)
  24.  
  25.    _errway = FERROR()
  26.  
  27.    IF EMPTY(_errway)
  28.       FCLOSE(_new)
  29.       IF FILE(_file)
  30.          ERASE (_file)
  31.       ENDIF
  32.    ENDIF
  33.    RETURN( (_errway = 0) )
  34.  
  35. * End of File
  36.