Page 1 sur 1

[RESOLU] Connaître le nom d'un dossier

Publié : mer. 10/nov./2021 15:55
par omega
Bonjour,

Supposons que l'on choisit, dans une boite de dialogue, le dossier (ou répertoire) suivant:
c:\mesprog\gestion\Data\

Ma question est très simple: comment récupérer le nom du dossier sélectionné ? Je cherche à connaître UNIQUEMENT le nom du dossier et non pas le chemin complet, dans cet exemple se sera: Data

Merci de votre aide

Re: Connaître le nom d'un dossier

Publié : mer. 10/nov./2021 15:59
par omega
Je sais qu'en passant par le balayage du chemin complet, à l'aide par exemple de findString, ça sera une des solutions, mais je préfère une instruction Pb plus simple qui consiste à récupérer le nom du répertoire directement sans passer par des tests de caractères....

Re: Connaître le nom d'un dossier

Publié : mer. 10/nov./2021 16:16
par omega
Je crois que je n'ai pas le choix

Code : Tout sélectionner

Dossier$ = PathRequester("Choisissez un dossier à compresser", dossier$)
  If Dossier$
     For k=1 To Len(dossier$)
         NomDossier$=StringField(dossier$, k, "\")
     Next
     
     Debug NomDossier$

Re: [RESOLU] Connaître le nom d'un dossier

Publié : mer. 10/nov./2021 16:27
par Micoute
Pourquoi n'utilise-tu pas GetFilePart() ?

Re: [RESOLU] Connaître le nom d'un dossier

Publié : mer. 10/nov./2021 16:49
par Marc56
(avec ou sans \ final)

Code : Tout sélectionner

Dossier$ = "C:\mesprog\gestion\Data\"

Debug StringField(Dossier$, CountString(RTrim(Dossier$, "\"), "\") + 1, "\")

Ou en utilisant la proposition de Micoute
(on triche en supprimant l'\ final ce qui fait croire au système que le dernier répertoire est un fichier :mrgreen: , donc GetFilePart() fonctionne dans ce cas.)

Code : Tout sélectionner

Dossier$ = "C:\mesprog\gestion\Data\"

Debug GetFilePart(RTrim(Dossier$, "\"))
:wink: