===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-12-93 (09:47)             Number: 78
From: PETER BARNEY                 Refer#: 112
  To: JOHN COWGILL                  Recvd: NO  
Subj: SEARCH PATHS                   Conf: (35) Quick Basi
---------------------------------------------------------------------------
JC>Can anyone steer me in the appropriate direction to get this job done
JC>easier than above? Any suggestion would be appreciated......

Here's some quick code I put together a couple years ago.

' Function OpenFile$ returns the
' pathname+filename if it is in the path.
'
'
DECLARE FUNCTION OpenFile$ (n$, filenum)
PRINT OpenFile$("pkunzip.com", 1)

FUNCTION OpenFile$ (n$, filenum)
    PATH$ = ENVIRON$("PATH")
Tryopen:
    A$ = DIR$(p$ + n$)
    IF A$ = "" THEN
        IF PATH$ = "" THEN n$ = "NOT FOUND": p$ = "": EXIT FUNCTION
        m = INSTR(PATH$, ";")
        IF m = 0 THEN
            p$ = PATH$: PATH$ = ""
            IF RIGHT$(p$, 1) <> "\" THEN p$ = p$ + "\"
            GOTO Tryopen
        END IF
        p$ = LEFT$(PATH$, M - 1)
        IF LEFT$(p$, 1) <> "\" THEN p$ = p$ + "\"
        PATH$ = MID$(PATH$, M + 1)
        'PRINT "Searching " + p$
        GOTO Tryopen
    ELSE
        OPENFILE$ = UCASE$(p$ + n$): EXIT FUNCTION
    END IF
END FUNCTION


 * SLMR 2.1 * Are you suggesting that coconuts migrate?

--- TMail v1.31.2
 * Origin: Programmer's Tech Shop (1:234/56)
SEEN-BY: 1/211 11/2 4 108/89 110/69 121/8 154/9 40 77 321 157/2 159/100
SEEN-BY: 159/125 430 950 227/3 228/57 234/2 14 16 17 56 100 396/1 2210/7956
SEEN-BY: 2230/100 2240/176 2410/193