http://www.purebasic.com
https://www.purebasic.fr/english/
My proc restores current dir by default (but you can also set it)BarryG wrote: Sat Nov 23, 2024 1:31 amI wouldn't use GetCurrentDirectory() and/or SetCurrentDirectory() because that changes how your app runs, and you may just want to get a parent folder without changing the current directory used by your app.
No, it doesn't.
Code: Select all
MessageRequester("", GetCurrentDirectory())
I think that the path to the .exe directory (cannot test on windows atm) must be something simpler, like:
Code: Select all
GetPathPart(ProgramFilename())Code: Select all
MessageRequester("", GetCurrentDirectory()) ; NEVER do this to get your exe's folder!
Just as Kiffi said and showedBarryG wrote: Sat Nov 23, 2024 6:26 amNo, it actually returns the path of the calling process, for example if started from a batch file or another process. See below for proof. You can't 100% rely on it to return the exe's actual folder - you need ProgramFilename() for that.Kiffi wrote: Sat Nov 23, 2024 2:30 amGetCurrentDirectory() returns the path from which your programme was called
Code: Select all
MessageRequester("", GetCurrentDirectory()) ; NEVER do this to get your exe's folder!
.
Just tested on windows 10 and it works!BarryG wrote: Sat Nov 23, 2024 6:42 am @Piero: Your code fails on Windows PCs for the same reason I showed in my screenshot above (it outputs C: instead of the correct D:). I know you said your code works on Mac, but it's definitely NOT cross-platform code (if anyone is hoping it is).
No, it doesn't. You didn't test it like how I said. Here's your code that I used, and the result below. You can clearly see the MessageRequester is NOT showing "D:" as the upper folder - it's showing "C:" by mistake.
Code: Select all
Procedure.s UpperDir(path$, level = 1, setcurrdir.b = #False)
Protected i, oldcurrdir$ = GetCurrentDirectory()
path$ = GetPathPart(path$) ; in case of file
For i = 1 To level : path$ + ".." + #PS$ : Next
SetCurrentDirectory(path$)
path$ = GetCurrentDirectory()
If Not setcurrdir : SetCurrentDirectory(oldcurrdir$) : EndIf
ProcedureReturn path$
EndProcedure
MessageRequester("",UpperDir(GetCurrentDirectory()))
Code: Select all
Debug UpperDir(GetCurrentDirectory())Yep; the problem was the path returned by GetCurrentDirectory in some non-standard situations, NOT my UpperDir procedure
Code: Select all
Procedure.s UpperDir(path$, level = 1, setcurrdir.b = #False)
Protected i, oldcurrdir$ = GetCurrentDirectory()
path$ = GetPathPart(path$) ; in case of file
For i = 1 To level : path$ + ".." + #PS$ : Next
SetCurrentDirectory(path$)
path$ = GetCurrentDirectory()
If Not setcurrdir : SetCurrentDirectory(oldcurrdir$) : EndIf
ProcedureReturn path$
EndProcedure
Debug GetCurrentDirectory()
Debug UpperDir(GetCurrentDirectory()) ; Does NOT change Current Directory
Debug GetCurrentDirectory()
Debug UpperDir(GetCurrentDirectory(), 2, 1) ; Goes up 2 "levels" and Changes Current Directory (1 = true)
Debug GetCurrentDirectory()
; Example usage: get .app folder (Mac)
Debug ".app folder on Mac: " + UpperDir(ProgramFilename(), 3)
; For Windows, Linux and Mac-console programs, you can use:
; GetPathPart(ProgramFilename())Haha, all good.
