dir$=DIRECTORY(), and EXPLORER()

[Hemlos]

code=GLBasic V5+6

Code (returns current working directory) Select Expand


FUNCTION DIRECTORY:
// returns current working directory
// FORMAT: dir$=DIRECTORY()
     RETURN REPLACE$(GETCURRENTDIR$(),CHR$(47),CHR$(92))
ENDFUNCTION

dir$=DIRECTORY()+"subdirectory"
EXPLORE(dir$)

Code (opens explorer in specified directory) Select Expand


FUNCTION EXPLORE: dir$
// opens explorer in specified directory
// FORMAT: EXPLORE(dir$)
     SHELLCMD("explorer.exe "+dir$,TRUE,TRUE,rv)
ENDFUNCTION

Combined for simplicity, opens explorer in working directory

Code (opens explorer in working directory) Select Expand


FUNCTION EXPLORER:
// opens explorer in working directory
// FORMAT: EXPLORER()
     ok$=REPLACE$(GETCURRENTDIR$(),CHR$(47),CHR$(92))
     SHELLCMD("explorer.exe "+ok$,TRUE,TRUE,rv)
ENDFUNCTION

[Kitty Hello]

why not using:
path$ = REPLACE$("/", "\\")

[Schranz0r]

Thats to simple with REPLACE  

[Hemlos]

why not using:
path$ = REPLACE$("/", "\\")

Code (final working codesnip) Select Expand


FUNCTION HF_GETCURRENTDIR$:
RETURN REPLACE$(GETCURRENTDIR$(),CHR$(47),CHR$(92))
ENDFUNCTION
I had to use character codes, the ascii seems to trigger the debugger, its complaining about arguement #'s
Danke

[Kitty Hello]

Right. That's a bug in V5. Fixed in next version.