App Start Directory

[AUGE_OHR]

hi,

i do have

Code: Select all

   zPATH := HB_CurDrive() + ':\' + CURDIR() + '\'
   USE (ZPATH+"WMPSETUP.DBF") ALIAS WMPSETUP SHARED

let say App is in C:\MYDIR and i start with

C:\MYDIR\MyApp.EXE

from C:\Somewhere

than zPATH is NOT C:\MYDIR ... it is C:\Somewhere
so how to get App Start Directory

[SALINETAS24]

hi,

i do have

Code: Select all

   zPATH := HB_CurDrive() + ':\' + CURDIR() + '\'
   USE (ZPATH+"WMPSETUP.DBF") ALIAS WMPSETUP SHARED

let say App is in C:\MYDIR and i start with

C:\MYDIR\MyApp.EXE

from C:\Somewhere

than zPATH is NOT C:\MYDIR ... it is C:\Somewhere
so how to get App Start Directory

No termino de entender,
Pero quizas buscas esto

GetCurrentFolder()

Te devuelve el Directorio donde estas ejecutando el programa

Sl2

[AUGE_OHR]

hi,

No termino de entender,
Pero quizas buscas esto

GetCurrentFolder()

Te devuelve el Directorio donde estas ejecutando el programa

thx for Answer.

it does give me Folder where i start external App, not where App exist.

---

Code for "C:\MYDIR\MyApp.EXE"

Code: Select all

PROCEDURE MAIN
LOCAL cDIr := GetCurrentFolder()
   MsgInfo(cDIr)

now try to start from "C:\Somewhere" and call "C:\MYDIR\MyApp.EXE"
GetCurrentFolder() give me "C:\Somewhere" not "C:\MYDIR"

[mustafa]

maybe ?

Code: Select all

  cDir1 := HB_CurDrive()+':\'+CurDir()+'\'
  cDir2 := HB_CurDrive()+':\'+CurDir()+'\Docs\'

  DIRCHANGE( cDir1)
  DIRCHANGE( cDir2)

Saludos/Regards/Salam
Mustafa

[edk]

hb_DirBase() ➜ cDirName
returns the application's executable base directory (program statrtup directory).

hb_ProgName() ➜ cExeName
returns the executable program name.

[hansmarc]

Hi Jimmy,

use hb_dirbase()

regards
Hans

[AUGE_OHR]

hi

hb_DirBase() ➜ cDirName
returns the application's executable base directory (program statrtup directory).

hb_ProgName() ➜ cExeName
returns the executable program name.

YES ... hb_DirBase() work like i want, THX