Page 1 sur 1

OpenFileRequester [resolu]

Publié : lun. 24/sept./2018 18:19
par 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)

Re: OpenFileRequester

Publié : lun. 24/sept./2018 20:05
par 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)

Re: OpenFileRequester

Publié : lun. 24/sept./2018 20:22
par 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$

Re: OpenFileRequester

Publié : lun. 24/sept./2018 20:26
par pierre003
X-Ray a écrit :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

Re: OpenFileRequester

Publié : lun. 24/sept./2018 20:28
par pierre003
Ar-S a écrit :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