OpenFileRequester [resolu]

[pierre003]

Bonsoir a tous,
J’ai bien regardé la doc mais je n’ai pas trouvé comment obliger ce code (qui fonctionne très bien sinon) à s’ouvrir dans le dossier ou il est installé.
Exemple il est actuellement dans le dossier ‘C:\machin’ il s’ouvre le dossier ‘C:\machin’ si on déplace l’exe dans le dossier ‘D:\truc’ il s’ouvre le dossier ‘d:\truc’.
Ou alors pouvoir connaitre l’adresse ou est placé l’exe par exemple.
Si vous avez la solution ce serait sympa.
Merci
Pierre003

Code : Tout sélectionner

Define Filtre.s, Fichier.s
Filtre = "Texte (*.TXT)|*.txt"
Fichier = OpenFileRequester("Choisissez quelques fichiers","",Filtre,0, #PB_Requester_MultiSelection)

[X-Ray]

Peut-être comme ça?

Code : Tout sélectionner

Define Filtre.s, Fichier.s
Filtre = "Texte (*.TXT)|*.txt"
Fichier = OpenFileRequester("Choisissez quelques fichiers",GetPathPart(ProgramFilename()),Filtre,0, #PB_Requester_MultiSelection)

[Ar-S]

marche aussi avec

Code : Tout sélectionner

Define Filtre.s, Fichier.s
Filtre = "Texte (*.TXT)|*.txt"
MyPAth$ = GetCurrentDirectory()
Fichier = OpenFileRequester("Choisissez quelques fichiers",MyPAth$,Filtre,0, #PB_Requester_MultiSelection)
Debug MyPAth$

[pierre003]

Peut-être comme ça?

Code : Tout sélectionner

Define Filtre.s, Fichier.s
Filtre = "Texte (*.TXT)|*.txt"
Fichier = OpenFileRequester("Choisissez quelques fichiers",GetPathPart(ProgramFilename()),Filtre,0, #PB_Requester_MultiSelection)

Super, ça ne fonctionnait pas au début et j’ai eu l’idée de refermer les autres programmes qu’il y avait dans l’éditeur et là c’est bon.
Merci beaucoup et bonne soirée.
Pierre

[pierre003]

marche aussi avec

Code : Tout sélectionner

Define Filtre.s, Fichier.s
Filtre = "Texte (*.TXT)|*.txt"
MyPAth$ = GetCurrentDirectory()
Fichier = OpenFileRequester("Choisissez quelques fichiers",MyPAth$,Filtre,0, #PB_Requester_MultiSelection)
Debug MyPAth$

Merci bien, je vais aussi le garder sous le coude.
Bonne soirée
Pierre