récupérer le répertoire en cours

[david]

je suis désolé de poser la question qui est surement la plus bete de a terre mais je recherche
juste le repertoire en cours (celui a partir duquel j'ai lancé mon fichier
'Lanceur.exe' compilé avec pureBasic

Je dois récupérer le répertoire en cours
ex: C\monRep\
et lui rajouter 'MonDossier'

pour aller ouvrir un fichier dans : C\monRep\MonDossier

Ca a l'air tout bete mais j'ai l'impression que je peux tout récuupérer sauf ça
J'ai bin cherche dans les Get.... et les Directory...
mais je n'obtiens que des carractéristiques de fichier
et pas le répertoire actuel d'ou j'ai lancé mon executable

si quelqu'un peux m'aider?
je pense que ça doit etre tres simpe
meme si ça fait deux heures que je cherche sur l'aide de PB et sur e forum avec des mots cés significatifs

vous aurez donc compris que je suis debutant, merci de ne pas
se moquer si la question a l'aire bete

[Cool Dji]

Salut David,

T'as essayé avec ça ?

GetCurrentDirectory()

Tu y étais presque : t'avais le début, t'avais la fin, il te manquait le milieu

[Patrick88]

Code : Tout sélectionner

Procedure.s RepEnCours()
  appdir$ = Space(255)
  GetCurrentDirectory_(255, @appdir$)
  If Right(appdir$, 1) <> "\" ; si l'adresse ne finit pas par "\"
    appdir$ = appdir$ + "\" ; on rajoute le "\"
  EndIf
  ProcedureReturn appdir$
EndProcedure

[brossden]

Patrick pourquoi une procedure pour une fonction native ?

Code : Tout sélectionner

rep.s=GetCurrentDirectory()+"MonDossier" 
Debug rep

[Patrick88]

bin beuh parce que je savais po que ça existait...

[gnozal]

Attention : "le répertoire en cours" =! "le répertoire d'où j'ai lancé mon executable"

1. "le répertoire en cours" -> GetCurrentDirectory()
2. "le répertoire d'où j'ai lancé mon executable" -> GetPathPart(ProgramFilename())

Code : Tout sélectionner

Debug GetCurrentDirectory()
Debug GetPathPart(ProgramFilename())

Ces 2 répertoires peuvent être identiques ou pas !