_OpenFile Dialog in same folder as exe

[Pete]

From the good ol' days of "Must I optimize everything you do!" or Variable? We don't need no stinkin' variable!

Code: (Select All)

PRINT ExePath$

FUNCTION ExePath$
    IF _INSTRREV(COMMAND$(0), "\") THEN
        ExePath$ = LEFT$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\") - 1)
    ELSE
        ExePath$ = LEFT$(COMMAND$(0), _INSTRREV(COMMAND$(0), "/") - 1)
    END IF
END FUNCTION

Just sayin'

Pete