_OpenFile Dialog in same folder as exe

[Pete]

I know, I know, for fun I should have....

Code: (Select All)

PRINT ExePath$

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

Pete